Erro ao abrir formulário.
11/03/2003
0
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
Curtir tópico
+ 0
Responder
Posts
12/03/2003
Anonymous
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;
Responder
12/03/2003
Poeta Noturno
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)