TColor Problem |
尚未結案
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
|
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
看 help 就知道了
它沒預先定義, 是為了寫程式方便所留下的一個屬性
怎麼用呢?就看寫程式的人了
您現在要利用它來記錄 Color 值是一種
小弟這邊的經驗是這麼用的:
var edt: array[1..10] of TEdit; procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i := 1 to 10 do begin edt[i] := TEdit.Create(nil); edt[i].Parent := Form1; edt[i].Tag := i; edt[i].OnChange := Edit1Chagne; end; end; procedure TForm1.Edit1Change(Sender: TObject); var index: integer; begin index := (Sender as TEdit).Tag; // 由這裡得知觸發的是哪個 TEdit edt[index].Color := clRed; end; |
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
引言: 順帶一問,control 的 procedure 是否可以用共用的?像你之前那個edit change,那麼其它event(同一種class)是否也可以共用一個event?那個共用的event的稱是怎樣定義的1.可以共用, 只要其 event 型態相同 您可以在 Object Inspector 的 Event 頁中來看 每個 event 的右邊都是個下拉選單可以選 在下拉時, 如果有 event 型態相同的都會出現, 也就是可以期用 2.名稱可以自己取, 前例的 Edit1Change, 是在 Edit1 的 OnChange 的預設名稱 |
BorlandUser
中階會員 發表:148 回覆:217 積分:73 註冊:2004-02-19 發送簡訊給我 |
Procedure TMainUserForm.SpecialEditKeyPress(Sender: TObject; Var Key: Char);
Begin If (Not(UpCase(Key) In ['0'..'9', 'A'..'Z', #8, #13])) Then
Begin
Beep();
Key := #0;
End;
End; 三個tedit,分別是LoginEdit, PassEdit, ConfirmPassEdit,共用keyrpess
但最終是輸入不到任何東西,為何呢?
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
引言: Procedure TMainUserForm.SpecialEditKeyPress(Sender: TObject; Var Key: Char); Begin If (Not(UpCase(Key) In ['0'..'9', 'A'..'Z', #8, #13])) Then Begin Beep(); Key := #0; End; End; 三個tedit,分別是LoginEdit, PassEdit, ConfirmPassEdit,共用keyrpess 但最終是輸入不到任何東西,為何呢?輸入不到任何東西是什麼意思? |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |