盒子论坛 v2.1

[boy] 寫到﹕
  ShowWindow(FindWindow( 'Shell_TrayWnd',nil), SW_HIDE);//隱
  ShowWindow( FindWindow( 'Shell_TrayWnd',nil), SW_SHOWNA);//顯
  上面這樣能隱藏任務欄 , 但不能實現于Windows 自動隱藏功能 .就是在隱藏時
使窗口的Height,Width 的Value 是顯示器設置的值,使窗口達到最大化時邊任務欄的位置也占上﹗
--------
先謝了
----------------------------------------------
-
凡人之學﹐不日進者.必日退﹗

作者：

zizii (高高高级馒头)	★☆☆☆☆	-
	神秘会员

2003/8/18 18:19:06

1楼：

FindWindow( 'Shell_TrayWnd',nil)得到他的句柄了怎么操作他都可以啦，你看看“葵花宝典”，里面很多这种技巧的。
----------------------------------------------
维护世界和平，共创美好盒子。

作者：

gwf (老管)	★☆☆☆☆	-
	盒子活跃会员

2003/8/19 8:32:35

2楼：

可否寫個實例@祥細點﹗俺對這塊不是很清楚﹗但又急要用﹗拜拖了﹗
可以實現自動隱藏功能就ok 了﹗昨晚試了一下其他方法沒成功﹗
----------------------------------------------
-
凡人之學﹐不日進者.必日退﹗

作者：

boy (阿門)	★☆☆☆☆	-
	盒子活跃会员

2003/8/19 10:09:06

3楼：

先試作出真正的全銀幕的 FORM
private  {in form declaration}
  procedure WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo); message WM_GETMINMAXINFO;

procedure TForm1.WMGetMinMaxInfo(var msg: TWMGetMinMaxInfo);
begin
  inherited;
  with msg.MinMaxInfo^.ptMaxTrackSize do begin
    X := GetDeviceCaps( Canvas.handle, HORZRES ) + (Width - ClientWidth);
    Y := GetDeviceCaps( Canvas.handle, VERTRES ) + (Height - ClientHeight );
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
const
  Rect: TRect = (Left: 0; Top: 0; Right: 0; Bottom: 0);
  FullScreen: Boolean = False;
begin
  FullScreen := not FullScreen;
  if FullScreen then
  begin
    Rect := BoundsRect;
    SetBounds( Left - ClientOrigin.X, Top - ClientOrigin.Y, GetDeviceCaps( Canvas.handle, HORZRES )
    + (Width - ClientWidth), GetDeviceCaps( Canvas.handle, VERTRES ) + (Height - ClientHeight ));
    {Label2.caption := IntToStr(GetDeviceCaps( Canvas.handle, VERTRES ));}
  end
  else
    BoundsRect := Rect;
end;

參考
Taskbar 编程技巧
http://www.china-pub.com/computers/eMook/1042/info.htm
----------------------------------------------
Delphi開發◆伺服器架設◆免安裝APACHE,PHP,CGI Perl, MYSQL ★

作者：

gwf (老管)	★☆☆☆☆	-
	盒子活跃会员

2003/8/20 8:21:34

4楼：

謝了﹐謝了﹗
已ok 了﹗

----------------------------------------------
-
凡人之學﹐不日進者.必日退﹗

信息

登陆以后才能回复