想請教各位大大 就是啊....有什麼方法可知道form上的button有無啟動過??   原因： 我的 >

引言: 想請教各位大大 就是啊....有什麼方法可知道form上的button有無啟動過?? 原因： 我的 > < face="Verdana, Arial, Helvetica"> papalili 你好 最簡單方法是,Form1宣告一個旗標(Boolean)變數，初值設為False,然後在該Button的OnClick 事件中設為true ,之後在任何時候，你只要判斷該變數是True或False即可。

  private
    IsPress : Boolean;
....
  End;
...
Procedure TForm1.Button1Click(Sender:TObject);
Begin
  IsPress := True;
End;
判斷時
  If IsPress Then Begin
    // 已開啟過
  End Else Begin
    // 未開啟過
  End;

引言:

引言: 想請教各位大大 就是啊....有什麼方法可知道form上的button有無啟動過?? 原因： 我的 > < face="Verdana, Arial, Helvetica"> papalili 你好 最簡單方法是,Form1宣告一個旗標(Boolean)變數，初值設為False,然後在該Button的OnClick 事件中設為true ,之後在任何時候，你只要判斷該變數是True或False即可。

  private
    IsPress : Boolean;
....
  End;
...
Procedure TForm1.Button1Click(Sender:TObject);
Begin
  IsPress := True;
End;
判斷時
  If IsPress Then Begin
    // 已開啟過
  End Else Begin
    // 未開啟過
  End;

procedure ButtonClick(Sender:TObject);
begin
  with TControl(Sender)do begin
    if(Tag>0)then //啟動過Tag遍
             else //尚未啟動過
    Tag:=Tag 1;
  end;
end;

謝謝兩位大大 結果我用Chance36大大的方式 就可以用了 可是我可不可以再問一個問題 就是為什麼 private IsPress : Boolean; { Private declarations } private { Private declarations } IsPress : Boolean; 這兩種的宣告方式有什麼差別 因為我是用下面這一種 結果是不能用的 謝謝大大的教導

它是相同的,沒道理會一個可以另一個卻不可以,

private 是指Form 的私用變數區段,如下    Type
  TForm1 = Class (TForm)
    ......
  Private
  .....
  { Private declarations }  // 這是註解,在前在後並不影响程式的
  .....      Public
  .....
  End;

發表人 - chance36 於 2004/03/28 01:06:34

謝謝大大的指導 我已經了解了 感謝大大的幫助 謝謝