窗口置顶

procedure TForm1.btn_set_backClick(Sender: TObject);
begin
SetWindowPos(self.handle,HWND_NOTOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW);
SetWindowPos(self.handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);//取消窗口置顶
end;

procedure TForm1.btn_set_topClick(Sender: TObject);
begin
SetWindowPos(self.handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_SHOWWINDOW)
// setwindowpos(self.handle,HWND_TOPMIOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);//窗口置顶
end;