Fórum Inserir, Editar.....dados via teclado??? Como Fazer. #190260
22/10/2003
0
O amigo japa me deu uma idéia de como fazer pra trabalhar com o teclado na navegação de dados como os programas em DOS.
Montei o seguinte codigo pra teste.
procedure TForm1.atalhos(var Teclado: TWMKEY; var Handled: Boolean);
begin
//Codigo para fechar o formulario com ESC.
IF Panel1.Enabled =FALSE THEN
case Teclado.CharCode of
VK_ESCAPE:close;
end;
//codigo para abilitar a entrada de dados
case Teclado.CharCode of
VK_insert:
Panel1.Enabled :=true;
end;
//Codigo pra desabilitar a entrada de dados.
if Panel1.Enabled = true then
case Teclado.CharCode of
VK_ESCAPE:
Panel1.Enabled:=FALSE;
end;
ShowMessage(´Registro nao incluso.´);
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Application.OnShortCut:=atalhos;
end;
end.
Só que eu teclo qualquer tecla a menssagem aparece.
Eu quero que ela apareça somente se eu teclar ESC e o Panel1
estiver com enabled:=true.
Desde ja agradeço.
Rodrigo Muller
Curtir tópico
+ 0Posts
22/10/2003
Henry
Gostei + 0
22/10/2003
Rodrigo Muller
Gostei + 0
22/10/2003
Henry
Gostei + 0
23/10/2003
Rodrigo Muller
to apanhando pra caramba
o delphi nem aceita colocar o codigo antes do end;
existe outra forma de fazer isso?
Gostei + 0
23/10/2003
Rodrigo Muller
sera que ninguem tentou fazer isso ja?
se alguem tem uma idéia agradeço.
rodrigo@gmcplus.com.br
Gostei + 0
23/10/2003
Bysnaga
//Codigo pra desabilitar a entrada de dados.
if Panel1.Enabled = true then
case Teclado.CharCode of
VK_ESCAPE:
begin
Panel1.Enabled:=FALSE;
ShowMessage(´Registro nao incluso.´);
end;
end;//end do case
end;//end da procedure
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)