TLabeledEdit.EditLabel als PopupComponent

[ImpeDan]

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...

[Aviator]

Versuchs mal so:
  TLabeledEdit(TPopupMenu(TMenuItem(Sender).GetParentComponent).PopupComponent).EditLabel.Caption := 'Test';

[ImpeDan]

...Das funktioniert leider auch nicht. Ich denke das Problem besteht darin, dass die PopupMenu.PopupComponent eben nicht ein TLabeledEdit sondern nur "ein Teil davon" ist, nämlich das entsprechende EditLabel...

[Aviator]

Ich habs bei mir ausprobiert und es funktioniert. Was genau funktioniert nicht? Wird nur nichts zugewiesen, schmiert das Programm ab oder wie äußert sich das "es funktioniert nicht"?

Führ die Schritte nochmals einzeln aus und benutz mal den Debugger und kuck, was nicht funktioniert.

Tipp: Dazu brauchst du einige lokale Variablen, denen du die zurückgelieferten Komponenten zuweisen kannst.

[ImpeDan]

ich hab das jetzt so getestet:

Delphi-Quellcode:

procedure TForm1.PopupMenu1ItemSelected(Sender: TObject);
var
  MyLabeledEdit: TLabeledEdit;
  MyMenuItem: TMenuItem;
  MyPopupMenu: TPopupMenu;
begin
  MyMenuItem := TMenuItem(Sender);
  MyPopupMenu := TPopupMenu(MyMenuItem.GetParentComponent);
  MyLabeledEdit := TLabeledEdit(MyPopupMenu.PopupComponent);
  MyLabeledEdit.EditLabel.Caption := 'test';
end;

Das Kompilieren funktioniert auch schon wie in vorherigen Versuchen, der Fehler wird jetzt für "control.inc" in Zeile 3246 angezeigt: GetTextMethod := TMethod(@Self.GetTextBuf); und tritt beim erreichen der Zeile MyLabeledEdit.EditLabel.Caption := 'test'; auf.

(edit)
Wenn ich der Variable manuell eine bestehende Komponente zuweise, gibt es komischerweise keinen Fehler:

Delphi-Quellcode:

MyLabeledEdit := LblEdt01;
  MyLabeledEdit.EditLabel.Caption := 'test';

[Aviator]

Lad doch mal bitte das Projekt hoch. Dann kann man es besser nachvollziehen.

Btw. hinterleg doch mal pls. deine Delphi Version in deinem Profil.

[ImpeDan]

Hier einmal den Source-Code sowie das Formular... Ist an sich Bestandteil eines deutlich größeren Projekts, wobei die Verknüpfungen zu den anderen Units eh noch nicht bestehen, da es sich gerade bei diesem Unit noch um eine sehr einfache Version handelt, die ich ersteinmal für sich genommen zum laufen kriegen möchte...

[Aviator]

Du hättest erwähnen sollen, dass es sich hierbei um ein Lazarus Projekt handelt. So wie ich das sehe (und gelesen habe), wird die Eigenschaft PopupComponent bei Lazarus nicht bzw. falsch gesetzt. Dann ist es nicht verwunderlich, dass eine Exception ausgelöst wird.

Du könntest das mit einem Workaround lösen, indem du dir beim OnMouseDown selbst die entsprechende Komponente merkst und dann darauf zugreifst. Das sollte dann funktionieren.

[ImpeDan]

Okay, gut zu wissen. Ich teste das in den nächsten Tagen dann mal, hab jetzt gerade keine Zeit mehr...
Vielen Dank für die Hilfe :)