Delphi程序在任务栏显示不了？

Posted 2023-05-06

procedure TfrmMain.FormCreate(Sender: TObject);
var
FForm : TFrmLogin;
begin
//.......................注释掉下面代码则能显示在任务栏，否则在任务栏就显示不了.................................
FrmLogin := TFrmLogin.Create(nil);
if FrmLogin.ShowModal<>mrOK then
begin
Application.Terminate;
Exit;
end;
//...............下面代码省略....................
end;
因为要先登入之后才能显示主窗体，所以肯定要在SHOW之前创建登入窗体；我在工程文件里面写代码还是一样

OnCreate是在你的住窗体frmMain构建的时候执行的，你在这个事件里用了ShowModal,线程被挂起了，还没来得及注册到任务栏呢. 参考技术A 代码放错地方了 尽量放在OnCreate后 ，建议把这些登陆窗体的代码放在OhShow，或者直接放在dpr工程文件里。 参考技术B TFrmLogin 做主窗口了，没create肯定没有

Delphi中无边框窗体应用程序使任务栏右键菜单有效的方法

 最近在Delphi开发中用到了无边框窗体显示时，无法在任务栏使用右键弹出菜单的情况，经过整理，通过以下方法可以使右键菜单出现：

procedure Tfrm_Base.InitSysMenu;
var
  WindowStyle: Integer;
begin
  WindowStyle := GetWindowLong(Handle, -16);
  WindowStyle := WindowStyle or WS_SYSMENU or WS_MINIMIZEBOX;
  WindowStyle:=WindowStyle xor WS_CAPTION;
  SetWindowLong(Handle, -16, WindowStyle);
end;

 

http://www.cnblogs.com/gxch/archive/2011/04/22/2024846.html