界面最小化后，无法再显示出来，系统任务栏右键程序图标也无法关闭

Question

我只要把界面最小化以后，就再也无法显示出来了，只在托盘上有显示个图标，但是右键又关闭不了也还原不出来，真是怪事了。我这个是登陆界面，请大家看看是什么原因，如何解决。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.

Answer 1

应该是这里呀，我有UserLogin中的crater事件中都没写内容的

Answer 2

是不是与我BorderStyle 设为了bsNone 有原因？有解决方法吗？

Answer 3

显示托盘图标，用的组件还是自己写API？把那点儿相关代码贴出来。问题不在上面。

Answer 4

最小化到托盘已经处理了，右键托盘图标没处理
估计是用了组件（如TrayIcon之类的）