cannot make a visible window modal

Delphi

17/10/2006

bom estou passando por um dilema aqui...
Ao criar meu Form ele me retorna o erro: ´cannot make a visible window modal´
Ao criar o form o foco passa para um edit dentro de um panel, mas nada via código... tudo pelo tabOrder dos componentes

chamo meu form assim:
if Consulta = nil then
Consulta := TConsulta.Create(application);
Consulta.ShowModal;


outras informações:
procedure TConsulta.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Consulta := nil;
    action     := caFree;
end;


TConsulta.FormStyle := fsNormal
TConsulta.BorderStyle := bsDialog


alguem poderia me ajudar?

Abraços!


Mahdak

Mahdak

Curtidas 0

Respostas

Massuda

Massuda

17/10/2006

No Object Inspector, mude a propriedade Visible do form para False.


GOSTEI 0
Marco Salles

Marco Salles

17/10/2006

outra linha de raciocineo..

Citação:
´cannot make a visible window modal´


engraçado este erro é tipico de aplicaçoes MDI... mas voce disse que
TConsulta.FormStyle := fsNormal ... Afinal é SDI ou MDI ?????


GOSTEI 0
Mahdak

Mahdak

17/10/2006

Tconsulta.FormStyle := fsNormal, porem o form que chama ele é MDIChild

massuda, o que voce sugeriu deu certo, porem quando eu dou um close no TConsulta ele me da um Access Violation


GOSTEI 0
POSTAR