PageControl com foco travado

Question

Ol�,Ap�s a execu��o do c�digo abaixo, procedure TFrmCadastro.PgcCadcliChanging(Sender: TObject;  var AllowChange: Boolean);begin  if (Dados.TbClientes.FieldByName(�pessoa�).Value = �J�) then    begin ...

Alanporto · Answer

Ocorre por que o foco fica nos TabSheets, ent�o s� muda o foco para outros controles com a tecla Tab (com os direcionais ele foca nas outras abas). O que voc� pode fazer � dar um SetFocus nele no evento OnShow do TabSheet.

Sgrandini · Answer

Realmente, o foco s� muda com a tecla TAB. Infelizmente, alanporto, o procedimento que vc passou n�o funcionou. N�o consigo fazer com que o foco saia do PageControl e passe para o DbGrid usando a tecla �seta para baixo�. Coloquei o TabOrder do DbGrid 0, e do PageControl 1. Qdo eu seleciono uma determinada linha do DbGrid, cujo valor do campo �pessoa� � igual a �J�, o procedimento descrito no evento OnChanging do PageControl deve impedir que o usu�rio mude de aba, e � o que acontece de fato. Ao cliclar no bot�o �Ok� da mensagem que � exibida pelo �MessageBox�, o foco � direcionado para o PageControl de acordo com o valor definido no TabOrder (1) deste controle. Mesmo o foco sendo direcionado para o PageControl, eu gostaria que ele (o foco) mudasse para o controle DbGrid utilizando a tecla �seta para baixo� e n�o a tecla TAB. Como fazer isso?

Alanporto · Answer

� a� voc� me pegou... mas voc� n�o pode simplesmente dar SetFocus no DBGrid ap�s o MessageBox :?:

Ficaria assim:

procedure TFrmCadastro.PgcCadcliChanging(Sender: TObject;
var AllowChange: Boolean);
begin
if (Dados.TbClientes.FieldByName(�pessoa�).Value = �J�) then
begin
AllowChange := False;
Application.MessageBox(�Cadastro complementar somente para pessoa f�sica!�, �Aviso�, MB_ICONWarning);
[b]DBGrid1.SetFocus;[/b]
end;
end;

O foco ap�s a mensagem j� voltaria para o DBGrid.

Alanporto · Answer

esqueci que o negrito n�o funciona no code (desconsidere o [ b ])...

Sgrandini · Answer

Eu fiz isso, mas n�o deu certo. O problema � que, seja qual for a ordem do PageControl no form, qdo o foco recai sobre ele nada faz com que saia. S� se eu utilizar o TAB, e n�o � isso que quero. Mesmo que o foco v� para um bot�o, por exemplo, e depois v� para o DbGrid, n�o tem problema. O neg�cio � que o foco precisa sair do PageControl.
Mas obrigada pela ajuda!

Alanporto · Answer

Tenta inserindo esse c�digo no OnChange.

   if PgcCadcli.ActivePage = TabSheetUsado then
      DBGrid1.SetFocus;

Assim sempre seta o foco no DBGrid quando a aba � ativada (comigo funcionou normalmente, tanto quando entra na aba quando aparece o MessageBox).

Sgrandini · Answer

Ainda n�o foi desta vez. Mudei o TabStop do PageControl para False, mas nem assim deu jeito. O que ser� que estou fazendo de errado?...

Alanporto · Answer

passe seu e-mail por mp que te mando o que fiz aqui pra voc� ver se o seu tem alguma coisa errada....

Sgrandini · Answer

Descobri que o problema est� na linha de c�digo

Application.MessageBox(�Cadastro complementar somente para pessoa f�sica!�, �Aviso�, MB_ICONWarning);

N�o sei pq isso acontece. Mudei para SHOWMESSAGE e funcionou. Assim que cliquei no OK da mensagem, teclei na seta para baixo e passei para a pr�xima linha do DbGrid. Pena o MESSAGEBOX n�o funcionar, pq eu gostaria de adicionar o �cone de aviso e alterar o t�tulo da janela de mensagem.

Diegotiemann · Answer

Tente colocar a linha abaixo logo depois do message box

 Perform(WM_NEXTDLGCTL, 0, 0);

Esse trecho passa o foco para o pr�ximo componente, se n�o trocar de aba, talvez funcione

Sgrandini · Answer

Finalmente, deu certo.Obrigada, diegotiemann!...

F�rum PageControl com foco travado #373090