如果 TColor($00C0C0FF); 我想將TColor 內的數值存入control的tag,之後用program read讀取,請問如何做呢?

直接給就行了, 例: Button1.Tag := TColor($00C0C0FF); Form1.Color := Button1.Tag; 發表人 - hagar 於 2004/05/14 16:27:44

我的意思是如何從tag的顏色匯給tcolor使用

不知您的疑點在哪？ TColor 與 Tag 都算是數值型態 直接給定就好了啊.

~_~" 不好意思我想問一下東西,control的tag有什麼用途? 以前用vb時,tag是一個string,什麼也可以用作儲存...原意以為delphi那個也是string....

看 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;    

順帶一問,control 的 procedure 是否可以用共用的?像你之前那個edit change,那麼其它event(同一種class)是否也可以共用一個event?那個共用的event的稱是怎樣定義的

引言: 順帶一問,control 的 procedure 是否可以用共用的?像你之前那個edit change,那麼其它event(同一種class)是否也可以共用一個event?那個共用的event的稱是怎樣定義的

1.可以共用, 只要其 event 型態相同 您可以在 Object Inspector 的 Event 頁中來看 每個 event 的右邊都是個下拉選單可以選 在下拉時, 如果有 event 型態相同的都會出現, 也就是可以期用 2.名稱可以自己取, 前例的 Edit1Change, 是在 Edit1 的 OnChange 的預設名稱

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 但最終是輸入不到任何東西,為何呢?

引言: 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 但最終是輸入不到任何東西,為何呢?

輸入不到任何東西是什麼意思？