Fórum !!!!!!SERÁ QUE NINGUÉM SABE!!!!!! #146139

16/03/2003

0

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


Anonymous

Anonymous

Responder

Posts

16/03/2003

Cic.pop

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


Responder

Gostei + 0

16/03/2003

Carlos Filho

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar