Wisst ihr, was daran auch noch schlimm ist, wenn jemand das
garnicht zuweist?
Sie hätten wenigstewns NIL zuweisen müssen, denn
Delphi-Quellcode:
procedure TForm4.PopupMenu1Popup(Sender: TObject);
begin
if Assigned(PopupMenu1.PopupComponent) then
ShowMessage(PopupMenu1.PopupComponent.ClassName + ' ' + PopupMenu1.PopupComponent.Name)
else
ShowMessage('nil');
end;
und nun häng das Popup an diese Buttons und an diese oder eine andere Komponente.
* auf Button linksklicken = nil
* auf die Komponente oder Button rechtsklicken = Komponentenname
* nochmal auf Button linksklicken = NICHT nil
[add]
Vor allem gibt es Referenzen, welche man verwenden kann, denn .LeftButton und .RightButton werden rausgegeben.