如何給動態創建的多個TComboBox賦不同的Onchange事件？
動態創建N多組，N隨機，每組有一個TComboBox，
而每組的TComboBox的Onchange事件就是判斷這組的TComboBox的ItemIndex
如果是0，保證這組只有一個TComboBox，如果是1，在這個TComboBox后在添加一個屬性一樣的TComboBox。
uj5u.com熱心網友回復：
ComboBox1.OnChange := ComboBox1Changeuj5u.com熱心網友回復：
動態創建N多組，N隨機，
你這樣只能一個個的賦值，動態創建就沒有意義了 。。
uj5u.com熱心網友回復：
指定一個事件就行了，然后每個組件指定不同的Tag值，事件中可以根據對應的Tag來執行相應的代碼
uj5u.com熱心網友回復：
cbID: Integer;cbList: TList;
var
cb: TComboBox;
begin
....
cb := TComboBox.create(self);
Inc(cbID);
cb.Tag := cbID;
cb.onChange:=ComboBoxChange;
cbList.add(cb);
...
end;
procedure TForm1.ComboBoxChange(Sender: TObject);
begin
case (Sender as TComboBox).Tag of
1: ....
2.:....
....
end;
.....
end;
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/95921.html
標籤：語言基礎/算法/系統設計