с..идеть в универе и писать е*анутую программу))))))))) спасите меня и Ежа плизик kisiki 50=50 30=1 forum pusteet, narashivaju gelivie resnichki xDDD
З.Ы. Ди и на нееебеееее тууучиииииииииииии , а я в солнечных очках xDDDDDDDDDd
Комментарии (18)
с..идеть в универе и писать е*анутую программу))))))))) спасите меня и Ежа плизик kisiki 50=50 30=1 forum pusteet, narashivaju gelivie resnichki xDDD
З.Ы. Ди и на нееебеееее тууучиииииииииииии , а я в солнечных очках xDDDDDDDDDd
Комментарии (18)
var i,j,c:byte;
begin
c:=1;
if (W = 'button') then begin
for i:=0 to 3 do begin
for j:=0 to 3 do begin
if (c < 16) then begin
button:=TButton.Create(Form1.GroupBox1);
button.Parent:=Form1.GroupBox1;
button.Caption:=IntToStr(c);
button.Width:=25;
button.Height:=25;
button.Top:=24 +25*i +i;
button.Left:=16 +25*j +j;
button.Tag:=c;
inc(c);
end;
end;
end;
end;
end;