TLabeledEdit.EditLabel als PopupComponent

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