Tab por Enter em BitBtn

31/01/2010

Ol� rapaziada estou usando o seguinte procedimento para mudar o tab pelo enter no formul�rio:

procedure TFormBanco.FormKeyPress(Sender: TObject; var Key: Char);
begin
If Key = #13 then
begin
Key := #0;
Perform(WM_NEXTDLGCTL, 0, 0);
If (ActiveControl is TBitBtn) then
Perform(VK_TAB, 0, 0);
end;
end;

S� que quando chega em um componente do tipo BitBtn para de funcionar este procedimento.
Algu�m sabe o que devo fazer?

Leandro Carvalho

Curtir t�pico + 0

Responder

Posts

01/02/2010

Alison Bissoli

Qual seria o int�ito deste tratamento justamente para TBitBtn, esperimente tir�-lo. If (ActiveControl is TBitBtn) then
Perform(VK_TAB, 0, 0); http://garotodesktop.blogspot.com

Responder

Gostei + 0

01/02/2010

Emerson Nascimento

n�o sei, mas acho que n�o faz o m�nimo sentido isso funcionar num bot�o qualquer.

quando se est� num bot�o, o ENTER aciona o bot�o e n�o pula para outro TWinControl.
se, no bot�o, fosse feita essa troca, como o bot�o seria acionado? com a barra de espa�o?

Responder

Gostei + 0

01/02/2010

Alison Bissoli

n�o tinha pensado nisso n�o, deve ser por isso mesmo o tratamento, pra quando estiver no bitbtn ele fazer o evento do bot�o, n�o anular a tecla pressionada, realmente, n�o faz sentido funcionar enter como tab em um componente que necessita do enter.

Responder

Gostei + 0

01/02/2010

Ricardo Araujo

pode usar assim tamb�m que funcionar.

procedure TFrmCadastroPadrao.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = VK_RETURN then
SelectNext(ActiveControl, true, true);
end;

s� n�o esque�a de ativar a propriedade Keypreview.

Responder

Gostei + 0