KeyPress no DBGrid

Delphi

07/09/2004

Olá, como eu faco para que o usuario nao aprte o CTRL+DEL e delete um dado no DBGrid... e como eu faco pra deixar que o usuario apenas digite os seguintees caracteres: ´ 0 ´..´ 9 ´ ´ , ´ ´ - ´ ´ * ´

Desde ja agradeco....


Titanius

Titanius

Curtidas 0

Respostas

Oscar Candido

Oscar Candido

07/09/2004

Amigo quanto a parte do Ctrl+Alt+Del eu não posso te ajudar, mas quanto aos caracteres acho que esse código pode servir pra vc:
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (key in[´0´..´9´,´-´,´*´,´,´]) then
     key := 0;
end;

Espero ter ajudado
um abraço


GOSTEI 0
Carlosfim

Carlosfim

07/09/2004

Colega,

Utilize este código no evento OnKeyDown do DBGrid:

If ((Shift = [ssCtrl]) and (key = vk_delete)) then Abort;


Isso fará com que CRTL + DEL não tenha efeito algum.
Abraco,


GOSTEI 0
POSTAR