Como criar multiplos Forms, e abrir cada um depois ?
Por exemplo:
x := 0;
Eu tenho o botão1, e quando aperto ele:
with TForm.Create(form1) do
begin
name := ´Form´ + inttostr(x)
x := x + 1;
show;
//Depois de 5 segundos...
hide;
end;
Logo, toda vez q eu o aperto, aparece um Form, cada um com o nome, de Form0, Form1 até FormX.
O meu problema é o seguinte:
Com o botão2: ´Form3.show;´ ... não dá!! Pq não existe Form3!
O que eu faço para poder abrir essas Forms que eu criei??
Será que fazendo algo do tipo:
var
x: tcomponent;
begin
x := form1.FindComponent (´Form3´);
//Logo x = Form3 (Component)
Não sei como abro, ´Show´ essas forms, pois se trata de um component, no caso que estou tentando!
Provavelmente estou fazendo da maneira errada!!
Se vc não entendeu ... imagine o ICQ, tem akela form basica de reiceve e send msg ... toda vez q uma msg de um determinado UIN chega abre a form certa, como ?? ... mais ou menos isso que estou a procura de respostas !!
x := 0;
Eu tenho o botão1, e quando aperto ele:
with TForm.Create(form1) do
begin
name := ´Form´ + inttostr(x)
x := x + 1;
show;
//Depois de 5 segundos...
hide;
end;
Logo, toda vez q eu o aperto, aparece um Form, cada um com o nome, de Form0, Form1 até FormX.
O meu problema é o seguinte:
Com o botão2: ´Form3.show;´ ... não dá!! Pq não existe Form3!
O que eu faço para poder abrir essas Forms que eu criei??
Será que fazendo algo do tipo:
var
x: tcomponent;
begin
x := form1.FindComponent (´Form3´);
//Logo x = Form3 (Component)
Não sei como abro, ´Show´ essas forms, pois se trata de um component, no caso que estou tentando!
Provavelmente estou fazendo da maneira errada!!
Se vc não entendeu ... imagine o ICQ, tem akela form basica de reiceve e send msg ... toda vez q uma msg de um determinado UIN chega abre a form certa, como ?? ... mais ou menos isso que estou a procura de respostas !!
Polome
Curtidas 0
Respostas
Thaisandrade
26/06/2003
Não entendi bem o que quer. Se puder explicar um pouo melhor.
GOSTEI 0