!!!!!!SERÁ QUE NINGUÉM SABE!!!!!!
OI TUDO BEM
PELO AMOR DE DEUS ME AJUDA
O QUE EU QUERO É O SEGUINTE
QUANDO O CARA CLICAR NO BOTÃOTRAVA A TECLA ´A´ DO TECLADO SEJA DESATIVADA TANTO NA MINHA APLICAÇÃO QUANTO NAS OUTRAS
E QUANDO EU CLICAR NO BOTÃOACIONA ELA VOLTAR AO NORMAL
VALEU MESMO
PELO AMOR DE DEUS ME AJUDA
O QUE EU QUERO É O SEGUINTE
QUANDO O CARA CLICAR NO BOTÃOTRAVA A TECLA ´A´ DO TECLADO SEJA DESATIVADA TANTO NA MINHA APLICAÇÃO QUANTO NAS OUTRAS
E QUANDO EU CLICAR NO BOTÃOACIONA ELA VOLTAR AO NORMAL
VALEU MESMO
Anonymous
Curtidas 0
Respostas
Cic.pop
16/03/2003
na propriedade keyPreview do form mude a para true.
Declare uma variável global como boolean
Ex:
var
Form1: TForm1;
travar : Boolean;
no clique do botão coloque
travar := not travar; // ao clicar trava, ao clicar novamente destrava
código do evento onKeyPress do form:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if travar then
if Key in [´A´,´a´] then
key := #0
end;
Com esse exemplo acho que vc pode chegar aonde pretende
Declare uma variável global como boolean
Ex:
var
Form1: TForm1;
travar : Boolean;
no clique do botão coloque
travar := not travar; // ao clicar trava, ao clicar novamente destrava
código do evento onKeyPress do form:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if travar then
if Key in [´A´,´a´] then
key := #0
end;
Com esse exemplo acho que vc pode chegar aonde pretende
GOSTEI 0
Carlos Filho
16/03/2003
O esquema para travar a letra do teclado já foi dito acima, mas isso só trava a letra na sua aplicação e no form onde o código fonte for editado...
pra fazer esse efeito em outras aplicações que não é a sua fica mais complexo. vc tem de escolher a aplicação e andar uma mensagem para ela
como fazer isso?
bom, eu nao sei direito.
Mas leia a ajuda MS SDK Help que está dentro do diretório Help do Delphi
é tudo em inglês e linguagem C da API do windows...
Se vc já tiver programado com C++ fica fácil
pra fazer esse efeito em outras aplicações que não é a sua fica mais complexo. vc tem de escolher a aplicação e andar uma mensagem para ela
como fazer isso?
bom, eu nao sei direito.
Mas leia a ajuda MS SDK Help que está dentro do diretório Help do Delphi
é tudo em inglês e linguagem C da API do windows...
Se vc já tiver programado com C++ fica fácil
GOSTEI 0