edit i OnKeyDown

0

WI!

Jak sprawdzić, czy na obiekcie edit została wciśnięta kombinacja klawiszy ctrl+v?

Próbowałem tak(w zdarzeniu onKeyDown edita):

if (key=vk_Control) and ((key=86) or (key=118)) then cos tam

(86 i 118 to kody ASCII małego i dużego V)

ale działało to tylko dla dużego 'V'

kod:

if key=22 then cos tam

tal samo

(22 to kod ascii kombinacji ctrl+v)

co mam zrobić, żeby to działało też dla małego v?

0

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((key=86)or(key=118))and(ssCtrl in Shift) then
begin
Edit1.Text:='Ctrl+v';
end;
end;

0

Niestety to nie działa... Ale chyba zapomniałem o czymś powiedzieć....

No form1 mam richEdit z którego można kopiować, a na form2 mam tego edita, do którego chcę wklejać, po wciśnięciu ctrl+v
(ale wkleja mi na richedit na form1, chyba, że wcisnę ctrl+shift+v)

0

A dlaczego akurat Ctrl + V ?
Nie bedzie sie to gryzlo z windowsowskim Ctrl + V ?
Jak w schowku bedziesz mial jakies dane to one zostana wklejone...
Chyba, ze czegos nie zrozumialem pytaniu :-/

0

A dlaczego akurat Ctrl + V ?
Nie bedzie sie to gryzlo z windowsowskim Ctrl + V ?
Jak w schowku bedziesz mial jakies dane to one zostana wklejone...
Chyba, ze czegos nie zrozumialem pytaniu :-/

No fakt... Nigdy nie ufaj użytkownikowi. A jak sprawdzić, jaki typ danych jest w schowku? (czy tekst, czy rysunek, czy coś innego)

1 użytkowników online, w tym zalogowanych: 0, gości: 1