Aus TComboBox.OnChange auf Sender zurückgreifen

[messie]

Hallo,

ich habe eine zur Laufzeit erzeugte TComboBox, der ich für das OnChange-Event eine Routine zugewiesen habe. Ich würde gerne aus dieser Routine einen errechneten Wert oder eine Meldung wieder in die property Text der ComboBox zurückschreiben.
Wie geht das?

Danke, Messie

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

[messie]

Danke für den Tipp,

Ich versuche gerade auch, das im BCB umzusetzen, das klappt aber nicht.
Ich habe versucht:

Code:

  TComboBox CBox;
  CBox = (TComboBox)(Sender);

Da wird vom Compiler bemeckert, daß ich die ComboBox mit new erzeugen soll. Muß ich ja nicht, die ComboBox gibt's ja schon.
Wir übergebe ich die Adresse des Sender an CBox?

Grüße, Messie

[shmia]

die Variable CBox soll nur ein Zeiger auf das Objekt sein:

Code:

TComboBox *CBox; 
  CBox = (TComboBox)(Sender); 
  CBox->Text = "test";

[messie]

Hatte ich vorher pobiert, geht auch nicht. Der Compiler will immer eine new-Anweisung, weil TComboBox eine VCL-Klasse ist. Muß irgendwie anders gehen...

Grüße, Messie

[messie]

da wäre ich über Hilfe richtig glücklich!

[sniper_w]

Code:

TComboBox *CBox; 
  CBox = (TComboBox*)(Sender); 
  CBox->Text = "test";

[messie]

Danke für den Tip, der Zugriff geht jetzt. Leider kann ich immer noch nichts ans Textfeld übergeben. Die Eigenschaft Text wird gesetzt, trotzdem wird weiter das ausgewählte Item angezeigt.
Kann ich die Textanzeige aktivieren ohne daß ich den ItemIndex ändere?

Grüße, Messie