Fórum Há como fazer função para abrir chamar e fechar um form #318807
10/04/2006
0
Application.CreateForm(TfCadCli, fCadCli); fCadCli.ShowModal; fCadCli.Release;
Existe como fazer uma função tipo:
function AbreForm(nomeform: string); begin Application.CreateForm(T"nomeform", "nomeform"); "nomeform".ShowModal; "nomeform".Release; end;
Depois para abrir o form:
AbreForm(´Cadastro_Clientes´)
Att
Mario
Aldus
Curtir tópico
+ 0Posts
10/04/2006
Paullsoftware
procedure ChamaForm(fClass:TFormClass; Form:TForm); begin try Application.CreateForm(fClass,Form); Form.ShowModal; Finally Form.Release; Form:=nil; end; end;
:wink:
Gostei + 0
10/04/2006
Aldus
Acess violation at adress 999999
E chamando-o pelo modo normal, não ocorre o referido erro.
após declarar a function, chamei-a da seguinte forma:
AbreForm(TfCadPro,fCadPro);
No aguardo
Gostei + 0
10/04/2006
Paullsoftware
Gostei + 0
10/04/2006
Aldus
Mario
Gostei + 0
10/04/2006
Ricardoif
[b:68491d4804]procedure [/b:68491d4804]fShowModal(TFormulario: TComponentClass; [b:68491d4804]var [/b:68491d4804]Formulario);
[b:68491d4804]begin[/b:68491d4804]
[b:68491d4804] try[/b:68491d4804]
Application.CreateForm(TFormulario, Formulario);
TForm(Formulario).ShowModal;
[b:68491d4804] finally[/b:68491d4804]
TForm(Formulario).Release;
FreeAndNil(TForm(formulario));
[b:68491d4804] end;
end;[/b:68491d4804]
fShowModal(TForm1,Form1);
Gostei + 0
10/04/2006
Aldus
De qualquer forma, obrigado a ajuda de todos.
Mario
Gostei + 0
24/12/2006
Mmoreira
Estou precisando fazer a mesma coisa, porem com forms do tipo MDI. E tem outra coisa nao posso permitir que o mesmo form seja aberto mais de uma vez e gostaria que esta ferificação ficasse na Procedure.
Alguem pode me ajudar?
valew
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)