Problemas ao trocar Tab por Enter

Question

Estou utilizando o seguinte comando:...Screen.ActiveForm.Perform(WM_NEXTDLGCTL,0,0);...Quando eu utlizo as teclas direcionais funciona normal, o problema est� justamente com o enter, pois quando dou u...

Titanius · Answer

Tamb�m estou a procura disso... :DE acrescentando mais um �problema�, que talvez o amigo acima ainda nao tenha percebido:Se o foco estiver num ComboBox, por exemplo, ele pula 2 focos.. ou seja, ele poe o foco pra dois componentes depois dele...N�o achei at� o momento nenhuma solu�o pra nenhuma dos dois problemas.[]s...

Mrmarcelojr · Answer

[quote:4664f5b486]Se o foco estiver num ComboBox, por exemplo, ele pula 2 focos.. ou seja, ele poe o foco pra dois componentes depois dele... [/quote:4664f5b486]Esse problema eu n�o encontrei.Mas quanto ao som, percebi que se o comando estiver no evendo OnKeyPress, ele n�o ocorre:[code:1:4664f5b486]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin  if Key = #13 then    begin      Key:=0;      Perform(WM_NEXTDLGCTL, 0, 0);    end;end;[/code:1:4664f5b486]pois o comando [b:4664f5b486]Key:=0;[/b:4664f5b486] elinima o som. Mas tenho que fazer isso no envento OnKeyDown, que ao inv�s de ascii devo usar os Vk�s:[code:1:4664f5b486]procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;  Shift: TShiftState);begin if key = VK_RETURN then   begin     Perform(WM_NEXTDLGCTL, 0, 0);   end;end;[/code:1:4664f5b486]E se vc for ver na unit windows (que � onde se encontra esses VK�s), n�o existe nenhum correspondente ao #0.� caro colega, estamos lascados....... :lol:...

Ricardoif · Answer

coloque no form principal da sua aplica�ao o componente ApplicationEvents da paleta Additional, e no evento OnMessage coloque o seguinte codigo:

------------------------------------------
if (Msg.wParam=VK_RETURN) then
begin
if Screen.ActiveControl is TDBGrid then
// se for uma grid
with TDBGrid(Screen.ActiveControl) do
begin
// verifica se est� na �ltima coluna
if SelectedIndex=Columns.Count-1 then
begin
// muda de linha e coloca na primeira coluna
SelectedIndex:=0;
Datasource.DataSet.Next;
end
else
// coloca na pr�xima coluna
SelectedIndex:=SelectedIndex+1;
end
else
// pr�ximo controle
Screen.ActiveForm.Perform(WM_NEXTDLGCTL, 0, 0);
Handled:=True;
end
else if (Msg.wParam=VK_F2) then
showmessage(�hello world�);

------------------------------------------

O handled define se vai ocorrer o sinal sonoro

Mrmarcelojr · Answer

[code:1:d0370fca6c]"coloque no form principal da sua aplica�ao o componente ApplicationEvents da paleta Additional, e no evento OnMessage coloque o seguinte codigo:..."[/code:1:d0370fca6c]Acontece que eu estou criando os componentes Edit, DBEdit, ComboBox e DBCombobox, por isso o c�digo deve pertir diretamente do KeyDown dos componentes....

Mrmarcelojr · Answer

Bem, garimpando pela net encontrei um exemplo que me serviu. N�o � bem o que eu queria, mas fiz algumas modifica��es e deu pra querbrar o galho.

Seguinte, no seu formulario principal fa�a a seguinte procedure:

[color=black][/color]
procedure TFormularioPrincipal.ProcessaMsg(Var Msg:TMsg;Var handled:Boolean);
begin
  if Msg.message=WM_KEYDOWN then
     begin
       if (Msg.wParam=VK_RETURN) and
          (not(ActiveControl is TButton)) and
          (not(ActiveControl is TBitBtn)) and
          (not(ActiveControl is TCustomMemo)) then
          Msg.wParam:=VK_TAB;
     end;
end;

E no evento OnCreate do formulario principal coloque

[color=black][/color]  Application.OnMessage:=ProcessaMsg;

Na verdade eu gostaria de colocar isto nos componentes, mas por enquando me serve. Por favor, se alguem conseguir fazer isso individualmente para cada componente, por favor, me mandem pelo e-mail marcelo@adminfo.com.br.

Ricardoif · Answer

TApplication.OnMessageThe TMessageEvent type is the type of the OnMessage event. The Msg parameter identifies the Windows message, and the Handled parameter indicates whether the event handler responded to the message. Set Handled to True if the message has been completely handled, to prevent subsequent processing of the message.Fa�a testes usando atribuindo true e false a HANDLED[code:1:88e7510ce0]&#91;color=black&93;&91;/color&93;procedure TFormularioPrincipal.ProcessaMsg(Var Msg:TMsg;Var handled:Boolean);begin  if Msg.message=WM_KEYDOWN then     begin       if (Msg.wParam=VK_RETURN) and          (not(ActiveControl is TButton)) and          (not(ActiveControl is TBitBtn)) and          (not(ActiveControl is TCustomMemo)) then          Msg.wParam:=VK_TAB;     end;end;[/code:1:88e7510ce0]...

Mrmarcelojr · Answer

[quote:cad0c06996]�Fa�a testes usando atribuindo true e false a HANDLED�[/quote:cad0c06996]Fora o handled desta procedure que eu passei, n�o encontrei nenhum handled. C vc tem algum exemplo ai, favor me passe, pois j� detectei alguns probleminhas em estar utilizando este m�todo. Quando eu abro um messagebox e dou um enter no bot�o focado, ele passa o foco para o outro bot�o, eles ficam navegando....

Steve_narancic · Answer

O problema de 2 focos eu resolvi substituindo o perform por[code:1:5f9116b485]keybd_event(VK_TAB, 0, KEYEVENTF_EXTENDEDKEY or 0, 0);[/code:1:5f9116b485]...

F�rum Problemas ao trocar Tab por Enter #319826