Fórum Jogar um form em uma variavel para executar outras coisa :( #313295
16/02/2006
0
COMO ESTOU FAZENDO
if a = 1 then begin
Form1.aTIPO := aTIPO;
Form1.aREL := aREL;
Form1.aMODO := aMODO;
end else
if a = 2 then begin
Form2.aTIPO := aTIPO;
Form2.aREL := aREL;
Form2.aMODO := aMODO;
end else
if a = 3 then begin
Form3.aTIPO := aTIPO;
Form3.aREL := aREL;
Form3.aMODO := aMODO;
end else
ETC....
COMO EU QRIA FAZER
jogar o form em uma variavel aFORM do tipo TForm
case a of
1 : aFORM := Form1;
2 : aFORM := Form2;
3 : aFORM := Form3;
4 : aFORM := Form4;
5 : aFORM := Form5;
6 : aFORM := Form6;
7 : aFORM := Form7;
end;
erro ele nao identifica o tipo
aFORM.aTIPO := aTIPO;
aFORM.aREL := aREL;
aFORM.aMODO := aMODO;
mais se eu fizer assim ele vai
(aFORM as Form1).aTIPO := aTIPO;
alguem tem alguma dica tah feia a coisa :(
if a = 1 then begin
Form1.aTIPO := aTIPO;
Form1.aREL := aREL;
Form1.aMODO := aMODO;
end else
if a = 2 then begin
Form2.aTIPO := aTIPO;
Form2.aREL := aREL;
Form2.aMODO := aMODO;
end else
if a = 3 then begin
Form3.aTIPO := aTIPO;
Form3.aREL := aREL;
Form3.aMODO := aMODO;
end else
ETC....
COMO EU QRIA FAZER
jogar o form em uma variavel aFORM do tipo TForm
case a of
1 : aFORM := Form1;
2 : aFORM := Form2;
3 : aFORM := Form3;
4 : aFORM := Form4;
5 : aFORM := Form5;
6 : aFORM := Form6;
7 : aFORM := Form7;
end;
erro ele nao identifica o tipo
aFORM.aTIPO := aTIPO;
aFORM.aREL := aREL;
aFORM.aMODO := aMODO;
mais se eu fizer assim ele vai
(aFORM as Form1).aTIPO := aTIPO;
alguem tem alguma dica tah feia a coisa :(
Programadorjlle
Curtir tópico
+ 0
Responder
Posts
16/02/2006
Ipc$
Defina um TFormx que tenha os campos aTIPO aREL aMODO
Depois Form1..7 = class(TFormx).
E aFORM = class(TFormx).
Depois Form1..7 = class(TFormx).
E aFORM = class(TFormx).
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)