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 ;

转载于:https://www.cnblogs.com/iinsnian/archive/2008/06/07/1215503.html