Arkadaşlar 18 tane combobox var elimde ve hepsinin select olayı bir procedure bağlı.. gayet iyi kullanıyorum fakat o procedure yi tetikleyenin adını nasıl alabilirim.. ? yani hangisi tetikledi ise onun adını almam gerekli? yardımcı olursanız sevinirim...

Kolay gelsin..

Kod: [Seç]

procedure TForm1.ComboBox1Change(Sender: TObject);
var combo:TComboBox;
begin
  if Sender is TComboBox then begin
    combo:=TComboBox(Sender);
    if SameText(combo.Name,'ComboBox1') then ShowMessage('ComboBox1 seçildi')
    else if SameText(combo.Name,'ComboBox2') then ShowMessage('ComboBox2 seçildi');
    else ....
  end;
end;

şaban bey teşekkür ederim...

arkadaşlar yardımlarınız için tşk ederim ama aşağıdaki tanımlamayıda eklerseniz sorun çıkmayacaktır..

var
Sender : TWincontrol;

kolay gelsin..

Aslında burada amaç kısa kod yazmak değil,  bizzat o nesneyi elde edip elde edilen nesneye göre kod yazılmasına yol göstermek olduğu için bu şekilde açık ve uzunca kod yazıldı.