Zitat von
TheAn00bis:
Hast recht, kann nicht klappen: SenderPopUp=TPopUpMenu.
Aber warum? Ich weise ihn so zu:
Delphi-Quellcode:
procedure TForm1.PopupMenu1Popup(Sender: TObject);
begin
SenderPopUp:=Sender.Classname;
end;
Man mit sowas muss ich mich mehr beschäftigen!
Sender.Classname gibt immer nur die Klasse des Senders zurück, nicht den Namen selbst.
Wenn also der Sender Memo1 oder Memo2 wäre, würde Sender.Classname in beiden Fällen "TMemo" sein.
MfG
Binärbaum