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