DELPHI 心得 (2008-05)

作者: 陆岛工作室



以下两个代码心得是在编写陆岛桌面工具时自己的一些心得。
 
1.    (2008-5-1) 有几种方法可以禁止主窗口在不任务栏显示.

1) 通过SetWindowLong设置主窗口的属性:
SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);

2) 设置 窗口的 ParentWindow 为桌面窗口的句柄
var
  AHandle: THandle;
begin
  SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
  AHandle := FindWindow('ProgMan', nil);
  if AHandle<>0 then Self.ParentWindow := AHandle;
end;

3) 在 Delphi 2007 时,可以如下设置
Application.MainFormOnTaskbar := True;
Application.ShowMainForm := False;

 

2.    (2008-5-1) 模式窗口焦点的解决。当窗口弹出一个模式窗口时，切换到其他窗口后，再切换回来，模式窗口就不能显示到最顶端了。这个问题可以根据判断 Application.Enabled 属性来解决。因为当 Application 有一个模式窗口时. Applicaton.Enabled 值就会为 False。因此，就可以在窗口的 WM_NCActivate 消息里。加入以下代码。

procedure TMyForm.WMNCActivate(var Message: TWMNCActivate);
begin
  inherited;
  if Message.Active and not (fsModal in FormState) and 
     not IsWindowEnabled(Application.Handle) then
    Windows.SetForegroundWindow(Application.Handle);
end;