Mega Code Archive
[] Dinamik bileşen oluşturma
<![CDATA[
//Nuh EROĞLU
//nuheroglu@hotmail.com
var
sayac : Integer = 20;
PANELLER : ARRAY OF TPanel ;
procedure TForm1.herseyihazirla();
begin
for sira := 1 to sayac do begin
PANELLER[sira] := TPanel.Create(Form1) ;
with PANELLER[sira] do begin
Parent := Form1 ;
Width := 1024 div 5;
Height := 650 div (sayac div 5);
Left := Width*((sira+4) mod 5);
if (sira mod 5) = 0 then
Top := 0 + (sira div 5)*Height-Height
else
Top := 0 + (sira div 5)*Height;
Name := 'Panel_Makine' + inttostr(sira);
Color := clwhite ;
Caption := 'Panel_Makine' + inttostr(sira) ;
Visible := True ;
DoubleBuffered := True ;
end; // with Panel
end;
end;
//Nuh EROĞLU
//nuheroglu@hotmail.com
]]>