[delphi]窗口最大化时怎么才能不要把任务栏盖住

方法一:

设置要 全屏的窗体的ALign 属性为 ALcLient ,此法最快。

方法二:用代码控制。在窗体 的创建事件中,(此方法 运行后窗体也可以移动。影响美观。应该再加入禁止窗体移动的代码)写入

var
    TrayWnd:   HWnd;   //任务栏句柄
    Rec       :   TRect;
begin
TrayWnd   :=   FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
GetWindowRect(TrayWnd,   Rec);          //获取任务栏尺寸
mainfm .Left :=0;
mainfm .top:=0;
mainfm .Width :=Screen .Width ;
mainfm .Height :=Screen .Height-(rec.Bottom- rec.Top) ;

这样也实现了 全屏不挡了任务栏。

 

 

 

posted @ 2010-08-19 14:36  huhu0013  阅读(3967)  评论(0编辑  收藏  举报