procedure TForm1.Button2Click(Sender: TObject); var i: Integer; const NamePrefix = 'Mypanel'; begin for i := 1 to 100 do begin TPanel.Create(Self).Name := NamePrefix + IntToStr(i); with TPanel(FindComponent(NamePrefix + IntToStr(i))) do begin Left := 10; Top := i * 20; Parent := self; end; end; end;
控件的 Parent 属性为该派生类, 则其坐标是相对于该派生类的)
var
i: Integer;
const
NamePrefix = 'Mypanel';
begin
for i := 1 to 100 do
begin
TPanel.Create(Self).Name := NamePrefix + IntToStr(i);
with TPanel(FindComponent(NamePrefix + IntToStr(i))) do
begin
Left := 10;
Top := i * 20;
Parent := self;
end;
end;
end;