Nieskończonośc

0

Jak w "nieskończoność" tworzyć jakies komponenty w skompilowanym programie. Np po nacisnięciu przycisku tworzy się nowy komponent memo o 15 pixli niżej. Jezeli się <font size="20"><font color="red">w ogóle</span></span> da. I jak zrobic żeby te komponenty miały już jakieś procedury. :-) :-) :-) :-) [cya] [???]

0

hmmm jezeli chodzi nieskończoność to mozna i w pętli robic

var memo:array of tmemo;
count:integer;
begin
for i:=1 to 20 do // <font color="red">żądek</span> 20 komponentów typu tmemo
begin
count:=count+1;
setlength(memo,count);
memo[count-1]:=tmemo.create(nil);
with memo(count-1) do
begin
parent:=form1;
width:=90;
top:=1;
left:=left+width;
height:=100;
end;
end;

<font color="red">niwiadmo</span> czy to zadziala bo to pisalem <font color="red">tera</span> od reki ;p

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0