Problema com foco.

Question

Bom tenho um campo dbedit.text e no evento On Exit tenho este codigoif DBEdit1.Text = � � thenFrmListaLinhas.Showmodal;Explicando se o dbedit1.text estiver em branco ele chama o form com a lista pra e...

Macario · Answer

Ola.Uma maneira:[code:1:ff9d9e4202]if(ActiveControl = BotaoCancelar) thenexit;[/code:1:ff9d9e4202]Mas atente que so serve para componentes descendentes de TWinControl.Espero que lhe ajude....

Marco Salles · Answer

outra maneira.. No evento onexit acrescente:[quote:de88f21b47]if not BotaoCancelar.setfocus Then  if DBEdit1.Text = � � then     FrmListaLinhas.Showmodal; [/quote:de88f21b47]...

Digital_man · Answer

[quote:f68f3765a3=�Macario�]Ola.Uma maneira:[code:1:f68f3765a3]if(ActiveControl = BotaoCancelar) thenexit;[/code:1:f68f3765a3]Mas atente que so serve para componentes descendentes de TWinControl.Espero que lhe ajude.[/quote:f68f3765a3]Amigos funcionou assim.procedure TFrmCadPro.DBEdit1Exit(Sender: TObject);beginif(ActiveControl = btnCancelar) thenADOQProdutos.Cancelelse//if not btnCancelar. Thenif DBEdit1.Text = �� thenFrmListaLinhas.Showmodal;end;...

Digital_man · Answer

[quote:e73d0416ac=�Macario�]Ola.Uma maneira:[code:1:e73d0416ac]if(ActiveControl = BotaoCancelar) thenexit;[/code:1:e73d0416ac]Mas atente que so serve para componentes descendentes de TWinControl.Espero que lhe ajude.[/quote:e73d0416ac][b:e73d0416ac]Amigos funcionou assim.procedure TFrmCadPro.DBEdit1Exit(Sender: TObject);beginif(ActiveControl = btnCancelar) thenADOQProdutos.Cancelelse//if not btnCancelar. Thenif DBEdit1.Text = �� thenFrmListaLinhas.Showmodal;end;[/b:e73d0416ac]...

Digital_man · Answer

[quote:1eef082e92=�Macario�]Ola.Uma maneira:[code:1:1eef082e92]if(ActiveControl = BotaoCancelar) thenexit;[/code:1:1eef082e92]Mas atente que so serve para componentes descendentes de TWinControl.Espero que lhe ajude.[/quote:1eef082e92][b:1eef082e92]Amigos funcionou assim.procedure TFrmCadPro.DBEdit1Exit(Sender: TObject);beginif(ActiveControl = btnCancelar) thenADOQProdutos.Cancelelse//if not btnCancelar. Thenif DBEdit1.Text = �� thenFrmListaLinhas.Showmodal;end;[/b:1eef082e92]...

Rodc · Answer

Ou usa u SpeedButton para o bot�o Cancelar...

Carlos Bernardo · Answer

if (dbedit1.text = ��) and (not btnCancelar.focused) thenFrmListaLinhas.Showmodal;...

Marco Salles · Answer

independente do que voce uses:1)[quote:449a6fa013]procedure TFrmCadPro.DBEdit1Exit(Sender: TObject); begin if(ActiveControl = btnCancelar) then ADOQProdutos.Cancel else if DBEdit1.Text = �� then FrmListaLinhas.Showmodal; [/quote:449a6fa013]2)[quote:449a6fa013]if not BotaoCancelar.setfocus Then   if DBEdit1.Text = � � then     FrmListaLinhas.Showmodal; [/quote:449a6fa013]3)[quote:449a6fa013]if (dbedit1.text <> ��) or( btnCancelar.focused) then ADOQProdutos.Cancel elseFrmListaLinhas.Showmodal;[/quote:449a6fa013]emfim, uma outras tantas series de modos que analisam de certo modo o proximo foco do outro controle...Por�m  Nenhuma delas  , funciona corretamente , se no programa possuir teclas de atalho..... Em situa�oes assim , tem que se garantir a mudan�a efetiva do foco , o que n�o ocorre usando a tecla de atalho.....

F�rum Problema com foco. #332754