Aus TComboBox.OnChange auf Sender zurückgreifen

[shmia]

Delphi-Quellcode:

var
   cbox : TComboBox;
begin
  cbox := Sender As TComboBox;
  cbox.Text := '***'+cbox.Text+'===';
end;

PS: eventuell bewirkt das Ändern von .Text ein neues OnChange-Event. =>Teufelskreis
dann:

Delphi-Quellcode:

var
   cbox : TComboBox;
   oldevent : TNotifyEvent;
begin
  cbox := Sender As TComboBox;
  oldevent := cbox.OnChange;
  cbox.OnChange := nil;
  cbox.Text := '***'+cbox.Text+'===';
  cbox.OnChange := oldevent;
end;