Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by dataspider,
30. Mär 2007
und du benutzt das Ereignis onPopUp?
Also:
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
MessageDlg(TPopupMenu(Sender).PopupComponent.ClassName, mtWarning, , 0);
end;
liefert bei mit TEdit (allerdings TPopupMenu).
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by dataspider,
30. Mär 2007
Hi,
was liefert den PopupComponent.ClassName? oder ist PopupComponent nil?
Erstellst du die Komponenten evtll. dynamisch? Dann ist das Prop Name vielleicht wirklich leer.
Cu, Frank