반응형
1. Application으로 제작된 Unit를 uses 절에 추가.
2. ActiveForm Create 이벤트시 아래구문을 추가.
procedure TActiveFormX.ActiveFormCreate(Sender: TObject);
begin
self.DockSite := true;
form1 := TForm1.Create(Self);
form1.dock(self, ClientRect);
form1.Visible := true;
end;
2. ActiveForm Create 이벤트시 아래구문을 추가.
procedure TActiveFormX.ActiveFormCreate(Sender: TObject);
begin
self.DockSite := true;
form1 := TForm1.Create(Self);
form1.dock(self, ClientRect);
form1.Visible := true;
end;
반응형