Erro ao abrir formulário.
Gostaria de saber pq eventualmente ocorre o erro ´A call to an OS function failed. System error 87´ quando abro algum formulario no sistema em execução.
Obrigado a quem puder ajudar.
Obrigado a quem puder ajudar.
Morrison
Curtidas 0
Respostas
Poeta Noturno
11/03/2003
Qual o tipo de chamada que vc faz a esse formulário??
GOSTEI 0
Anonymous
11/03/2003
Abro o formulario dessa forma e eventualmente ocorre ´A call to an OS function failed´. O que acontece?
If FormExiste(´FrmChqAvu´) Then
Begin
FrmChqAvu.Show;
End
Else
Begin
FrmChqAvu := TFrmChqAvu.Create(Self);
With FrmChqAvu Do
Begin
Icon := MdiMenu.Icon;
Left := 0;
Top := 0;
End;
End;
If FormExiste(´FrmChqAvu´) Then
Begin
FrmChqAvu.Show;
End
Else
Begin
FrmChqAvu := TFrmChqAvu.Create(Self);
With FrmChqAvu Do
Begin
Icon := MdiMenu.Icon;
Left := 0;
Top := 0;
End;
End;
GOSTEI 0
Poeta Noturno
11/03/2003
olha, você está usando uma função que põe o nome do formulário como uma string, quando vc deveria usar um parâmetro TObject para isso, desta forma:
function FormExiste(Formulario: TObject): boolean
E ao chamar a função, colocar o nome do formulário sem as aspas, ou senão pode usar desta forma:
if formulário <> nil then
formulário.show
else
formulário := Tformulário.Create(Application);
[o que você quiser fazer];
formulário.show;
Espero ter te ajudado.
Um abraço
Poeta Noturno
function FormExiste(Formulario: TObject): boolean
E ao chamar a função, colocar o nome do formulário sem as aspas, ou senão pode usar desta forma:
if formulário <> nil then
formulário.show
else
formulário := Tformulário.Create(Application);
[o que você quiser fazer];
formulário.show;
Espero ter te ajudado.
Um abraço
Poeta Noturno
GOSTEI 0