TLabeledEdit.EditLabel als PopupComponent

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