由fsStayOnTop形式隐藏的模态形式
我有一个表单（下例中的TBigForm），它允许操作一些复杂的数据，并需要显示其他信息。我将此信息放在fsStayOnTop表单中（示例中为OnTopForm），以确保它始终可见但可以在必要时移开。现在，当TBigForm中的某些用户操作显示模态形式时，这通常会隐藏在OnTopForm后面，这会使应用程序看起来冻结。我怎么能避免这个？ （搜索会产生很多很多点击，但我无法从中提取解决方案。）
在我的真实应用程序中，有很多地方显示模态表单，所以我想避免更改所有这些调用。
示例：创建一个新的VCL应用程序，在Form1上删除TButton，双击该按钮并使用以下内容替换生成的Button1Click实现存根：
type
TBigForm = class(TForm)
strict private
OnTopForm: TForm;
Button1: TButton;
procedure Button1Click(Sender: TObject);
protected
procedure DoHide; override;
procedure DoShow; override;
public
constructor Create(AOwner: TComponent); override;
end;
{ TBigForm }
procedure TBigForm.Button1Click(Sender: TObject);
begin
ShowMessage('Test');
end;
constructor TBigForm.Create(AOwner: TComponent);
begin
inherited CreateNew(AOwner);
Caption := 'Big form';
WindowState := wsMaximized;
Button1 := TButton.Create(Self);
Button1.Parent := Self;
Button1.Caption := 'Freeze!';
Button1.SetBounds(10, 10, 100, 100);
Button1.OnClick := Button1Click;
end;
procedure TBigForm.DoHide;
begin
OnTopForm.Free;
inherited DoHide;
end;
procedure TBigForm.DoShow;
begin
inherited DoShow;
OnTopForm := TForm.Create(Self);
OnTopForm.Caption := 'Important information';
OnTopForm.BorderStyle := bsToolWindow;
OnTopForm.FormStyle := fsStayOnTop;
OnTopForm.Position := poScreenCenter;
OnTopForm.Show;
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var
f: TBigForm;
begin
f := TBigForm.Create(nil);
try
f.ShowModal;
finally
f.Free;
end;
end;
没有找到相关结果
已邀请:
4 个回复
暑袜眠退
procedure TBigForm.Button1Click(Sender: TObject); begin OnTopForm.FormStyle := fsNormal; ShowMessage('Test'); OnTopForm.FormStyle := fsStayOnTop; end;谦响局豢报
镀建啼
Create an global TApplicationEvents Declare an global var to keep track of modal form count Hookup the OnMessage var Ctrl: TControl; if Msg.hwnd <> 0 then case Msg.message of CM_ACTIVATE, CM_DEACTIVATE: begin Ctrl := FindControl(Msg.hwnd); if Ctrl is TForm then if fsModal in TForm(Ctrl).FormState then begin if Msg.message = CM_ACTIVATE then Inc(Modal form count var) else Dec(Modal form count var); add more logic based on Modal form count var end; end; end;澜悍景哭苟
procedure TForm1.ScreenOnActiveFormChange(Sender: TObject); begin if (Screen.ActiveForm <> nil) then begin if (Screen.ActiveForm.Handle <> Application.MainForm.Handle) then with Screen.ActiveForm do SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE); Windows.SetForeGroundWindow(Screen.ActiveForm.Handle); end; end;