关于窗口得操作

Question

在你的主程序里这样做：
FormC.BorderStyle := bsDialog;
FormC.FormStyle := fsStayOnTop;
FormA.Hide;
FormB.Hide;
if FormC.ShowModal = mrOK then
    //ToDo: Your code
else
   //ToDo: Your code;
FormA.Show;
FormB.Show;

Answer 1

FormC.FormStyle := fsStayOnTop;procedure TFormC.FormShow(Sender: TObject);
begin
  enablewindow(formA.handle,false);
  enablewindow(formB.handle,false);
end;procedure TFormC.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  enablewindow(formA.handle,True);
  enablewindow(formB.handle,True);
end;