procedure TForm1.Button1Click(Sender: TObject);
begin
{窗体始终在最上面}
setwindowpos(handle,hwnd_topmost,left,top,width,height,0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
{窗体恢复}
setwindowpos(handle,hwnd_notopmost,left,top,width,height,0);
end;
end.