TEdit und TPopupMenu. Auswerten von Sender geht nicht!

patmann2001 · Beiträge: 201 Windows 7 Prof. Delphi XE2

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:

markieren

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 · Verfasst: 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:

_________________
Lükes Grundlage der Programmierung: Es wird nicht funktionieren.
(Murphy)

Gast Erhaltene Danke: 1

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

markieren

Quelltext

1:
2:
3:
4:

If Sender ist TEdit Then With Sender AS TEdit Do 
Begin 
  CutToClipboard; 
End;

kannst aber auch so machen

markieren

Quelltext

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme