請教大家: 如果有多個相同CLASS 的物件,當輸入數值時都會有相同的處理程式.. 因為不想重複寫,所以想寫成共用的一段程式然後每個物件改變時,都呼叫此一程式即可?? 因此我想取得現在呼叫此段程式的是哪個物件,要如何得知呢?? 謝謝大家!!! (假設此物件是 TDBEdit ) 發表人 - angel 於 2002/05/10 11:35:19

引言: 如果有多個相同CLASS 的物件,當輸入數值時都會有相同的處理程式.. 因為不想重複寫,所以想寫成共用的一段程式然後每個物件改變時,都呼叫此一程式即可?? 因此我想取得現在呼叫此段程式的是哪個物件,要如何得知呢?? (假設此物件是 TDBEdit )

將識別資料存在TDBEdit.TAG屬性中,在程式中判斷TAG的代號來區分! ～～～Delphi K.Top討論區站長～～～

可以利用sender來判斷 例如 tcontrol(sender).name tcontrol(sender).tag

謝謝大家!! 另外還有一個小問題: 為何使用 TCombobox ,當新增資料時有給預設值 ex : TCombobox.itemindex := 0 但還是沒有出現預設值?? 這是為什麼呢???

小弟測了一下, 若 TComboBox 內的 Items 的 Count 為 0 也就是沒有任何 Items 雖然有指定 TComboBox 的 Text 值 但經執行 TComboBox.ItemIndex := 0; 之後 它會顯示一片空白。 發表人 - hagar 於 2002/05/10 17:44:00

引言: 另外還有一個小問題: 為何使用 TCombobox ,當新增資料時有給預設值 ex : TCombobox.itemindex := 0 但還是沒有出現預設值?? 這是為什麼呢???

TComboBox.text要自己設定值! ～～～Delphi K.Top討論區站長～～～

引言: 可以利用sender來判斷 例如 tcontrol(sender).name tcontrol(sender).tag

我發現一個問題，就是如果元件是動態宣告出來的話， tXXXXXX(sender).name 會沒有東西 tXXXXXX(sender).name 也是沒有東西 怎麼辦呢？

1. 你在動態create元件時可以給name 例:

  btn:=TButton.create(self);
  btn.parent:=self;
  btn.name:='Button1';
  ...

2. 其實不同之類別只要Event型態相同也可呼叫同一Method 例:

if Sender is TButton then
  with Sender as TButton do begin
    ...
  end
else if Sender is TEdit then 
  with Sender as TEdit do begin
   ...