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)
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
Curtir tópico
+ 0
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:
[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);
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
Clique aqui para fazer login e interagir na Comunidade :)