Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - TEdit und TPopupMenu. Auswerten von Sender geht nicht!


patmann2001 - Sa 30.11.02 10:29
Titel: TEdit und TPopupMenu. Auswerten von Sender geht nicht!
Hallo
Ich habe 4 TEdit's und möchte sie nun mit nur einem PopupMenu bedienen, das aufrufen und so weiter klappt schon einwandfrei, ist ja auch nicht schwierig aber ich habe in dem onClick Ereigniss folgendes stehen:

Quelltext
1:
2:
3:
4:
With Sender AS TEdit Do
 Begin
  CutToClipboard;
 End;

Wenn ich das auslöse bekomme ich die Exception EInvalidCast, die Typeumwandlung geht nicht. Ich verstehe nicht warum das nicht klappt. Weiss es vielleicht einer von euch? :?

cu Patmann


Keldorn - Sa 30.11.02 11:13

Hallo

Sender beim Onclick ist das ausgewählte Menuitem, nicht das Tedit.

Mfg Frank

edit: wenn du im richedit auf Popupmenu gehst und f1 drückst, gibts ein Beispiel wie es geht :lol:


Anonymous - Sa 30.11.02 18:09

Zu der Fehlermeldung: Vor ein as gehört immer ein is. Das ganze ist zwar kein Muß, sollte aber gemacht werden:


Quelltext
1:
2:
3:
4:
If Sender ist TEdit Then With Sender AS TEdit Do 
Begin 
  CutToClipboard; 
End;


kannst aber auch so machen


Quelltext
1:
If Sender ist TEdit Then TEdit(Sender).CutToClipboard;