Problemas TABSHEET com EXIT de Componentes

Delphi

11/05/2005

Meu problema e o seguinte, quando quero mudar da aba em uma pagecontrol e o foco está em uma componente Mask ou Edit ou ComBoBox, e estes possuem um evento Exit com alguma linha que possua o comando setfocus ele executa o exit e não muda de aba,

Gostaria de saber se tem uma forma de burla o exit do componente ou algum comando que me faça exitar do procedimento exit do campo.....e mudar a aba do pagecontrol sem problemas....


Gm.gui

Gm.gui

Curtidas 0

Respostas

Steve_narancic

Steve_narancic

11/05/2005

No inicio do evento on exit do edit coloque:

[b:ab61915af3]if (PgControl.Focused) or (Tabsheet.Focused)
then
Exit;[/b:ab61915af3]


GOSTEI 0
Gm.gui

Gm.gui

11/05/2005

Não deu certo pelo seguinte, ele não chega foca na PageControl e nas TabSheets....pois o focu ainda está no componente enquanto executa o evento exit............


GOSTEI 0
POSTAR