5,386
社区成员
发帖
与我相关
我的任务
分享界面最小化后，无法再显示出来，系统任务栏右键程序图标也无法关闭
我只要把界面最小化以后，就再也无法显示出来了，只在托盘上有显示个图标，但是右键又关闭不了也还原不出来，真是怪事了。我这个是登陆界面，请大家看看是什么原因，如何解决。
dpr中的程序代码如下：
var
Alogin: TFormLogin;
begin
Application.Initialize;
Application.Title := '业务管理系统';
Application.CreateForm(TDtM, DtM);
Alogin := TFormLogin.Create(Application);
Alogin.ShowModal;
If false = m Then
begin
Alogin.Free;
Application.Terminate;
Exit;
end;
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(Tphotograph, photograph);
Application.Run;
end.
dpr中的程序代码如下：
var
Alogin: TFormLogin;
begin
Application.Initialize;
Application.Title := '业务管理系统';
Application.CreateForm(TDtM, DtM);
Alogin := TFormLogin.Create(Application);
Alogin.ShowModal;
If false = m Then
begin
Alogin.Free;
Application.Terminate;
Exit;
end;
Application.CreateForm(TFormMain, FormMain);
Application.CreateForm(Tphotograph, photograph);
Application.Run;
end.
...全文
请发表友善的回复…
发表回复
鐵蛋 2012-06-20
- 打赏
- 举报
托盘那里有最小化后隐藏窗体的代码，但是没有关于恢复的，绝对是这样的
lzy0577 2012-06-20
- 打赏
- 举报
最小化到托盘已经处理了，右键托盘图标没处理
估计是用了组件（如TrayIcon之类的）
估计是用了组件（如TrayIcon之类的）
newfang 2012-06-19
- 打赏
- 举报
显示托盘图标，用的组件还是自己写API？
把那点儿相关代码贴出来。问题不在上面。
把那点儿相关代码贴出来。问题不在上面。
yangqi613 2012-06-17
- 打赏
- 举报
是不是与我BorderStyle 设为了bsNone 有原因？有解决方法吗？
yangqi613 2012-06-16
- 打赏
- 举报
应该是这里呀，我有UserLogin中的crater事件中都没写内容的
一如当初 2012-06-15
- 打赏
- 举报
看不出来，我想问题不在这
