在应用程序首次加载之前显示模态窗体之前,建议的方法是确保主窗体完全最大化,并重新绘制所有控件.
当应用程序启动时(不是登录屏幕),我需要显示一个模态对话框,但是如果我在窗口最大化的时候将窗体设置为wsMaximized,那么控件就没有机会重绘,而是被遗忘了.
目前我使用以下方式显示模态屏幕:
procedure TForm1.FormActivate(Sender: TObject); var frmOrderLookup:TfrmOrderLookup; begin onactivate := nil; frmOrderLookup:=TfrmOrderLookup.Create(nil); try frmOrderLookup.showmodal; finally frmOrderLookup.Free; end; end;
解决方法
我通常做的是将自定义消息发回我的表单.这样,在表单的其他消息已经被处理之前,它将不会被处理.在此消息被处理之前,您的表单应该已经完成重绘.
type TMyForm = class(TForm) procedure FormCreate(Sender: TObject); private procedure HandleLookupMessage(var Message: TMessage); message WM_USER + 1; end; procedure TMyForm.HandleLookupMessage(var Message: TMessage); var frmOrderLookup: TfrmOrderLookup; begin frmOrderLookup := TfrmOrderLookup.Create(Application); try frmOrderLookup.ShowModal; finally frmOrderLookup.Release; end; end; procedure TMyForm.FormCreate(Sender: TObject); begin // Maximise form here if needed PostMessage(Handle,WM_USER + 1,0); end;
原文地址:https://www.jb51.cc/delphi/102560.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。