seveN Postado Abril 15, 2009 Denunciar Share Postado Abril 15, 2009 Tenho o código abaixo e ao abrir o form não consigo fazer com que o cursor fique no DBEdit15.Ao trocar o ShowModal por Show funciona, mas os forms abaixo não ficam travados.Tem uma outra solução para isso.Begin Try FormCadVistoria:=TFormCadVistoria.Create(Self); FormCadVistoria.TabCadVistoria.Last; FormCadVistoria.ShowModal; FormCadVistoria.DBEdit15.SetFocus; Except FormCadVistoria.Free; End;End;Pedro Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Jhonas Postado Abril 15, 2009 Denunciar Share Postado Abril 15, 2009 Tenho o código abaixo e ao abrir o form não consigo fazer com que o cursor fique no DBEdit15.Ao trocar o ShowModal por Show funciona, mas os forms abaixo não ficam travados.Tem uma outra solução para isso.Faça esta modificaçãoBegin try if FormCadVistoria = Nil then FormCadVistoria:= TFormCadVistoria.Create(self); except ShowMessage('Erro na criação do formulário !!'); FormCadVistoria.Free; exit; end; FormCadVistoria .Showmodal; end;estes comandos voce coloca no OnActive do form FormCadVistoria.TabCadVistoria.Last; FormCadVistoria.DBEdit15.SetFocus;abraço Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 Eder Moraes Postado Abril 15, 2009 Denunciar Share Postado Abril 15, 2009 Para liberar o form da memória coloque isso no evento onClose:Action := caFree; FormCadVistoria := nil;A respeito do foco. Acho melhor fazer o seguinte mude a ordem de tabulação dos seus componentes, para que o DBEdit15 seja o primeiro a receber o foco, colocando-o no evento OnActive, sempre que o formulário for ativado o foco tornará ao campo. Você pode não perder o foco do form que está em modal na mesma aplicação, mais pense se tiver que alternar entre tarefas.Já aconteceu comigo, em algumas ocasiões, tanto no onShow quanto no onActive. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
seveN
Tenho o código abaixo e ao abrir o form não consigo fazer com que o cursor fique no DBEdit15.
Ao trocar o ShowModal por Show funciona, mas os forms abaixo não ficam travados.
Tem uma outra solução para isso.
Begin
Try
FormCadVistoria:=TFormCadVistoria.Create(Self);
FormCadVistoria.TabCadVistoria.Last;
FormCadVistoria.ShowModal;
FormCadVistoria.DBEdit15.SetFocus;
Except
FormCadVistoria.Free;
End;
End;
Pedro
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.