各位大神，我想做一个类似任务栏一样的窗体谁有好的解决方法啊

[Pike_Feng]

窗体显示在屏幕的最上端，永远位于最上方，而且，其他程序最大化的时候其上边缘不能进到我的那个程序的下面，类似把Windows的任务栏挪到屏幕最上端那种效果。
目前已经解决的问题是让窗口置顶和使用Windows+D （或者是点击显示桌面按钮）时不消失。
实现过程如下：
public:
procedure CreateParams(var Params: TCreateParams); override; //在你的窗体中重载


procedure TfrmMain.Button3Click(Sender: TObject);
var
wnd : THandle;
begin
frmMain.FormStyle := fsStayonTop;
wnd := FindWindow(nil,'Project1');
SHowWIndow(wnd,SW_HIDE);
frmMain.BorderStyle:=bsNone;
frmMain.Top:=0;
frmmain.Left:=0;
frmMain.Width:=Screen.Width;
frmMain.Height:=30;
end;

procedure TfrmMain.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.EXStyle := Params.ExStyle or WS_EX_TOOLWINDOW;
Params.WndParent := GetDesktopWindow; // 重新定义Parent对象句柄,看你的需要了。
end;

[Pike_Feng]

目前差的就是其他的程序最大化的时候，他们的顶端是0，我想改成其他窗体最大化的时候，他们的顶端应该是 0+我的窗体的高度。 哪位兄弟有解决方法啊。

[Frank.WU]

appbar 这种技术老早就讨论过了

[leejunokokok]

接分，接分。 接分，接分。

[haitao]

好像 美萍 对这些玩的比较透。。。。

[金卯刀]

引用 2 楼 sailxia 的回复:

appbar 这种技术老早就讨论过了

是的，可到这里下载资源：demo程序可以停靠到屏幕四边并能使得其它应用窗体最大化尺寸符合要求。