如何使没有最大化的窗体紧贴任务栏显示？

Question

我们知道，一般软件窗体最大化的时候，下面是和任务栏紧密接触的，但是如果不采用最大化的窗体，如何让它在显示的时候始终是紧贴任务栏的呢？

Answer 1

如果你的任务栏用的是ToolBar的话（有的用Panel）
可以这样写：
...show(sender:TObject);
begin
  Top :=Screen.Height-Toobar1.Height;
end;

Answer 2

var
    TaskList:HWnd;//任务栏句柄
    Bordered:TRect;
TaskList:=FindWindow('Shell_TrayWnd',nil);//得到任务栏句柄
GetWindowRect(TaskList,Bordered);    //获取任务栏尺寸Form1.Top:=Bordered.top-form1.height;随手写的 Bordered是任务栏尺寸

Answer 3

我说的"任务栏"指的是windows系统桌面最下面的有开始菜单标记的东东,应该用什么代码?

Answer 4

哈，抱谦，出错了：
Top :=Toobar1.Height-(采单条的高度）;

Answer 5

哦，是Windows的菜单条呀！
这样试一下：
   top:=Screen.Height-Height;

Answer 6

Self.Windows.State := wsMaximied;//没有最大化，只不过是用户没有办法操作罢了。----------------
沉沦中..........