Pra que serve est� Propriedade !!!!!

Question

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

Navoid · Answer

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�

Aroldo Zanela · Answer

[quote:e9ddfb2d2a=�OscarLuiz�]caros colegas, estou com uma duvida b�sica, em um form existe a propriedade KeyPreview, qual a fun��o desta ?????Abs.Oscar Luiz[/quote:e9ddfb2d2a]Especifica quando o formul�rio deve receber eventos de teclado antes do controle ativo.property KeyPreview: Boolean;Descri��oSe 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....

Anonymous · Answer

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]

Dor_poa · Answer

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