Abrir Formulário

[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

[Jhonas]

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ção

Begin
   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

[Eder Moraes]

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.