Pra que serve está Propriedade !!!!!

Delphi

24/02/2003

caros colegas, estou com uma duvida básica, em um form existe a propriedade KeyPreview, qual a função desta ?????

Abs.


Oscar Luiz


Oscarluiz

Oscarluiz

Curtidas 0

Respostas

Navoid

Navoid

24/02/2003

seguinte, se vc observar verá que certos componentes possuem a propriedade onkeypress, tipo o form, o edit, o memo, etc.
num form normal qdo vc está dentro de um edit, sempre que vc digitar alguma tecla, o edit chamará o evento onkeypress dele mesmo. e só
agora se o keypreview estiver setado para true sempre que vc digitar alguma tecla primeiro irá ocorrer o evento onkeypress do form e só depois irá ocorrer o evento do edit, memo, ou controle que estiver focado

até


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

24/02/2003

caros colegas, estou com uma duvida básica, em um form existe a propriedade KeyPreview, qual a função desta ????? Abs. Oscar Luiz


Especifica quando o formulário deve receber eventos de teclado antes do controle ativo.

property KeyPreview: Boolean;

Descrição

Se KeyPreview está true, os eventos de teclado ocorrem no formulário antes de ocorrerem no controle ativo. (O controle ativo é especificado pela propriedade ActiveControl.)
Se KeyPreview está False, os eventos de teclado ocorrem somente no controle ativo.

Teclas de navegação (Tab, BackTab, as teclas de setas) não são afetadas por KeyPreview pois elas não geram eventos de teclado.


GOSTEI 0
Anonymous

Anonymous

24/02/2003

Veja um bom uso da propriedade KeyPreview
Caso vc queira proibir que determinada tecla seja pressionada
em qualquer objeto de um form, crie a função:

Function TNomeDoForm.SemATecla(t, key: char): char;
begin
        if (t = key) then
           Result := #0
        else
           Result := key;
end;


Onde [b:9e2f62f5cb]T [/b:9e2f62f5cb]é a tecla que vc não quer usar e
[b:9e2f62f5cb]KEY [/b:9e2f62f5cb]é a tecla pressionada pelo usuario, que vem do
procedimento OnKeyPress.

==========
[b:9e2f62f5cb]Em uso[/b:9e2f62f5cb]

Ative o KeyPreview,
No evento OnKeyPress do Form use

OnKeyPress := Nil;
Key := SemATecla(´A´,key); // proibe o uso da letra A
OnKeyPress := FormKeyPress;


OU

OnKeyPress := Nil;
Key := SemATecla(13,key) // proibe o press. da tecla <enter>
OnKeyPress := FormKeyPress;


======

Exemplo em uso no Form1

procedure TForm1.Form1KeyPress(...[resumido] [b]Key: Char[/b]);
begin
       OnKeyPress := Nil;
       key := SemATecla(13,key); // proibe o <enter>
       OnKeyPress := Form1KeyPress;
end;
[/code]


GOSTEI 0
Dor_poa

Dor_poa

24/02/2003

Nossa!!! :!: Não sobrou nem explicação para eu dar...!!! :oops: :cry:


GOSTEI 0
POSTAR