Inserir, Editar.....dados via teclado??? Como Fazer.

Delphi

22/10/2003

Ola pessoal

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

Rodrigo Muller

Curtidas 0

Respostas

Henry

Henry

22/10/2003

Brother, tente colocar o showmessage antes do end.


GOSTEI 0
Rodrigo Muller

Rodrigo Muller

22/10/2003

Antes do end; da erro.


GOSTEI 0
Henry

Henry

22/10/2003

Basicamente, em que parte que da erro??


GOSTEI 0
Rodrigo Muller

Rodrigo Muller

22/10/2003

olha henri
to apanhando pra caramba

o delphi nem aceita colocar o codigo antes do end;

existe outra forma de fazer isso?


GOSTEI 0
Rodrigo Muller

Rodrigo Muller

22/10/2003

viw pessoal

sera que ninguem tentou fazer isso ja?

se alguem tem uma idéia agradeço.

rodrigo@gmcplus.com.br


GOSTEI 0
Bysnaga

Bysnaga

22/10/2003

ai colega tenta isso:

//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
POSTAR