função pra criar form - alguém pode ajudar;

Delphi

21/01/2005

Estou tentando criar essa funcao pra criar meu forms, mas ta dando um erro na linha do createForm();

procedure TfrmMenu.AbreForm(FormNome : String);
begin
Application.createForm(TFormNome,FormNome); // erro
FormNome.showmodal;
FormNome.Release;
end;

chamo a funcao assim : AbreForm(´frmcliente´);

mas dá esses erros:
[Error] menu.pas(160): Undeclared identifier: ´TFormNome´
[Error] menu.pas(161): Record, object or class type required
[Error] menu.pas(162): Record, object or class type required

Como devo fazer ???


Walfrido

Walfrido

Curtidas 0

Respostas

Vprates

Vprates

21/01/2005

Tente o seguinte:

procedure AbreForm(TForm : TComponentClass; Form : TForm);
begin
Application.CreateForm(TForm, Form);
Form.ShowModal;
Form.Release;
end;

Vlw


GOSTEI 0
Walfrido

Walfrido

21/01/2005

como chamar a funcao pra abrir o frmCliente


GOSTEI 0
Vprates

Vprates

21/01/2005

AbreForm(TfrmCliente, frmCliente);

Vlw
duvidas posta aih.


GOSTEI 0
Walfrido

Walfrido

21/01/2005

Valew, tinha esquecido do colocar o ´T´ no TformCliente


GOSTEI 0
POSTAR