5,388
社区成员
发帖
与我相关
我的任务
分享
uses Unit2;
{$R *.dfm}
procedure TForm1.btnClearClick(Sender: TObject);
var
I: Integer;
begin
for I := Panel2.ControlCount - 1 downto 0 do
Panel2.Controls[I].Free;
end;
procedure TForm1.btnLoadClick(Sender: TObject);
begin
if FileExists('Budded.txt') then
with TFileStream.Create('Budded.txt', fmOpenRead) do
try
ReadComponent(Panel2);
finally
Free;
end;
end;
procedure TForm1.btnNewClick(Sender: TObject);
begin
Panel2.DockSite := True;
with TFrame2.Create(Panel2) do
begin
Name := 'Budded'+IntToStr(GetTickCount);
ManualDock(Panel2);
end;
end;
procedure TForm1.btnSaveClick(Sender: TObject);
begin
with TFileStream.Create('Budded.txt', fmCreate) do
try
WriteComponent(Panel2);
finally
Free;
end;
end;
initialization
RegisterClass(TFrame2); // 一定得先注册
end.