Crt+v
Eu coloquei umfiltro num Edit,no evento OnKeyPress;
if not ( Key in [0..9,A..z,A..Z,ç,*,-,#8,#13] )etc..
Só que assim,Control+V(colar)não é aceito.
Qual que é a maneira para filtrar caracteres mas liberar o Crt+v?
if not ( Key in [0..9,A..z,A..Z,ç,*,-,#8,#13] )etc..
Só que assim,Control+V(colar)não é aceito.
Qual que é a maneira para filtrar caracteres mas liberar o Crt+v?
Vtrx
Curtidas 0
Respostas
Joel Rodrigues
25/07/2012
Tente verificar se o control está pressionado usando o seguinte código:
if GetKeyState(VK_CONTROL) >= 0 then //CTRL está pressionado
GOSTEI 0
Deivison Melo
25/07/2012
Alguns componentes tem a property Shortcurt...
Dá uma olha no edit que você está usando...
Segue link de pesquisa pelo termo:
http://www.google.com.br/search?hl=pt&q=usando+a+property+shortcut+em+delphi&gbv=2&gs_l=hp.3...891.11316.0.11581.53.34.1.2.2.2.547.4984.2-9j5j1j1.16.0...0.0...1c.wG0j2wDHvX0&sa=X&as_q=&nfpr=&spell=1
Dá uma olha no edit que você está usando...
Segue link de pesquisa pelo termo:
http://www.google.com.br/search?hl=pt&q=usando+a+property+shortcut+em+delphi&gbv=2&gs_l=hp.3...891.11316.0.11581.53.34.1.2.2.2.547.4984.2-9j5j1j1.16.0...0.0...1c.wG0j2wDHvX0&sa=X&as_q=&nfpr=&spell=1
GOSTEI 0
Vtrx
25/07/2012
A quem interessar,solucionei minha nescessidade do seguinte modo;
No caso do Edit1;
No caso do Edit1;
procedure TForm4.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ((ssCtrl in Shift) AND (Key = ord(V))) then Edit1.SelText := Clipboard.AsText; end;
GOSTEI 0