CTRL-V in Edit abfangen

retnyg · Verfasst: Sa 18.12.04 16:33

gibt es ne möglichkeit in einem Edit das STRG-V abzufangen, vielleicht per OnKeyDown ?

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

mhm.. ja damit sollte es klappen, denke ich. das key down ereignis wird erst für strg ausgelöst. dann setzt du eine boolean variable auf true. dann prüfst du noch zusätzlich in key pressed

markieren

Delphi-Quelltext

1:
2:
3:

if DieVariable then begin
 if key='v' then key=#0;
end;

das sollte klappen...
vergiss nicht in onkeyup DieVariable wieder auf false zu setzen, sonst drückt man einmal strg, und darf danach nie wieder 'v' schreiben...

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

jasocul · Verfasst: Sa 18.12.04 16:53

markieren

Delphi-Quelltext

1:	if (ssCtrl in Shift) and (Key = Ord('v')) then key := 0;

So sollte es eigentlich funktionieren.

rochus · Verfasst: Sa 18.12.04 17:13

@jasocul

damit erreichst du aber auch, dass z.B. ein strg+alt+v ebenso ein strg+v auslöst. besser wäre in dem fall:

markieren

Delphi-Quelltext

1:	if (Shift = [ssCtrl]) and (Key = Ord('v')) then key := 0;

gruß
rochus

_________________
Im Nachhinein ist man immer ein Schlauch!
"Dream as if you'll live forever, live as if you'll die today!" James Dean

hansa · Beiträge: 3079 Erhaltene Danke: 9

Und wie siehts mit Konetxtmenü aus ? Also rechte Maustaste und "einfügen" ?

_________________
Gruß
Hansa

JayEff · Beiträge: 2971 Windows Vista Ultimate D7 Enterprise

bau dir selbst ein leeres context menü. habs ausprobiert. klappt.
die komponente heist popupmenu und muss auf die form gezogen werden. nun wählst du beim edit unter (rot geschrieben) popupmenu dein popupmenu1 aus und versuchst es mal.

_________________
>+++[>+++[>++++++++<-]<-]<++++[>++++[>>>+++++++<<<-]<-]<<++
[>++[>++[>>++++<<-]<-]<-]>>>>>++++++++++++++++++.+++++++.>++.-.<<.>>--.<+++++..<+.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme