확실하지는 않지만 이 방법을 한 번 써보세요.
FrmA 최초의 폼
FrmB 나중에 보일 폼
procedure TFrmA.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TFrmA.Button1Click(Sender: TObject);
begin
FrmB.Show;
FrmA.Close;
end;
아니면
FrmA의 Button1의 OnClick 이벤트에서는 단순히
procedure TFrmA.Button1Click(Sender: TObject);
begin
FrmB.Show;
end;
FrmB의 OnShow 이벤트에서
procedure TFrmB.FormShow(Sender: TObject);
begin
FrmA.Close;
end;
등과 같이 해 보면 어떨까요?
|