TLabeledEdit.EditLabel als PopupComponent
23. Feb 2014, 12:06
Hallo zusammen,
ich habe auf meinem Formular einen Button, der im OnClick Event ein neues TLabeledEdit erstellt und unter anderem dem entsprechendem EditLabel ein PopupMenu zuordnet. Nun will ich über dieses PopupMenu die Caption des TLabeledEdit.EditLabel ändern. Die einzelnen MenuItems rufen dabei alle die selbe Prozedur auf. Ich hab jetzt schon ne Weile gesucht und einige Varianten an Code ausprobiert, allerdings ohne Erfolg. Im Prinzip suche ich so etwas in der Art:
(PopupMenu1.PopupComponent as TLabeledEdit.EditLabel).Caption := (Sender as TMenuItem).Caption + ':';
Die Variante (PopupMenu1.PopupComponent as TLabeledEdit).EditLabel.Caption := (Sender as TMenuItem).Caption + ':';
funktioniert auch nicht.
Vielen Dank schon im voraus...
|