Fórum função pra criar form - alguém pode ajudar; #266335

21/01/2005

0

Delphi

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

Responder

Posts

21/01/2005

Vprates

Tente o seguinte:

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

Vlw


Responder

Gostei + 0

21/01/2005

Walfrido

como chamar a funcao pra abrir o frmCliente


Responder

Gostei + 0

21/01/2005

Vprates

AbreForm(TfrmCliente, frmCliente);

Vlw
duvidas posta aih.


Responder

Gostei + 0

21/01/2005

Walfrido

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar