papalili
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:28 回覆:31 積分:11 註冊:2003-09-02
發送簡訊給我
|
想請教各位大大
就是啊....有什麼方法可知道form上的button有無啟動過?? ![]()
原因:
我的 >
|
Chance36
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:31 回覆:1033 積分:792 註冊:2002-12-31
發送簡訊給我
|
引言:
想請教各位大大
就是啊....有什麼方法可知道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;
|
jest0024
高階會員
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:11 回覆:310 積分:224 註冊:2002-11-24
發送簡訊給我
|
引言:
引言:
想請教各位大大
就是啊....有什麼方法可知道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;
|
papalili
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:28 回覆:31 積分:11 註冊:2003-09-02
發送簡訊給我
|
謝謝兩位大大
結果我用Chance36大大的方式
就可以用了
可是我可不可以再問一個問題
就是為什麼
private
IsPress : Boolean;
{ Private declarations } private
{ Private declarations }
IsPress : Boolean; 這兩種的宣告方式有什麼差別
因為我是用下面這一種
結果是不能用的
謝謝大大的教導
|
Chance36
版主
![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif) ![](./myimg/board/mystar.gif)
![](images/icon_photo_none.gif) 發表:31 回覆:1033 積分:792 註冊:2002-12-31
發送簡訊給我
|
它是相同的,沒道理會一個可以另一個卻不可以,
private 是指Form 的私用變數區段,如下 Type
TForm1 = Class (TForm)
......
Private
.....
{ Private declarations } // 這是註解,在前在後並不影响程式的
..... Public
.....
End;
發表人 - chance36 於 2004/03/28 01:06:34
|
papalili
一般會員
![](./myimg/board/mystar_empty.gif)
![](images/icon_photo_none.gif) 發表:28 回覆:31 積分:11 註冊:2003-09-02
發送簡訊給我
|
謝謝大大的指導
我已經了解了
感謝大大的幫助
謝謝
|