Fórum Como criar uma procedure #292520

21/08/2005

0

Gostaria de criar uma procedure que receba o nome de um form, Crie esse form, e abra esse form :

procedure AbreForm(variavel ?);
begin
if Variavel = nil then
begin
Variavel := TVariavel.Create(nil);
Variavel.Show;
end;
end;

o meu problema esté em como criar essa variavel, e criar o form com o nome da variavel:

variavel.Create(nil)


Fabiano Góes

Fabiano Góes

Responder

Posts

22/08/2005

Paullsoftware

de uma olhada nesse link aqui

[color=red:c302845dfa][i:c302845dfa][url]http://forum.clubedelphi.net/viewtopic.php?t=67051[/url][/i:c302845dfa][/color:c302845dfa]

retorne se resolveu ou não... :roll:


Responder

Gostei + 0

22/08/2005

Fabiano Góes

Então pessoal;

O meu problema esta em colocar o nome do form a ser aberto em uma variavel;

pq qd chega na hora de criar o form com a variavel:

Variavel := T[b:c00232f17a]Variavel[/b:c00232f17a].Create(Self) ;

diz que TVariavel não existe;

não sei se vcs estão me entendendo mais quero criar uma procedure assim :

procedure AbreForm(pForm: TForm);
begin

if pForm = Nil then begin
pForm:= TpForm.Create(Self);
pForm.Showm;
end;

ai entao onde eu digitaria o codigo acima pra abrir um form eu apenas chamaria a procedure:

AbreForm(Form a ser aberto);


Responder

Gostei + 0

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

Aceitar