메인화면에서
A라는 창과 B라는 창을 Show로~~ 띄우도록 했습니다....
그리고 A라는 창에서 다시 B창을 Show로 열려고 했더니
열리는 것처럼 처리하고는 열리지가 않습니다...
좀 더 자세한 질문을 위해 소스를 올립니다...
<< 메인화면에서 창을 여는 소스>>
procedure TfrmMain.mnu_mosplanClick(Sender: TObject);
begin
frmMbP101V := TfrmMbP101V.Create(self);
frmMbP101V.Top := 0;
frmMbP101V.Left := 0;
frmMbP101V.ID := FID;
frmMbP101V.Show;
end; --> 창A라고 가정함
procedure TfrmMain.f1Click(Sender: TObject);
begin
frmMbPs21B := TfrmMbPs21B.Create(Self);
frmMbPs21B.Top := 0;
frmMbPs21B.Left := 0;
frmMbPs21B.MemberChange := False;
frmMbPs21B.Member_Id := '';
frmMbPs21B.ID := FID;
frmMbPs21B.Show;
end; --> 창B라고 가정함
## 창A의 소스
procedure TfrmMain.f1Click(Sender: TObject);
begin
frmMbPs21B := TfrmMbPs21B.Create(Self);
frmMbPs21B.Top := 0;
frmMbPs21B.Left := 0;
frmMbPs21B.MemberChange := False;
frmMbPs21B.Member_Id := '';
frmMbPs21B.ID := FID;
frmMbPs21B.Show;
end; --> 버튼을 누리면 창2가 열림
##창B의 소스
procedure TfrmMbPs21B.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=CaFree;
end;