欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

https://blog.csdn.net/qdseashore/article/details/7784546

代碼如下：
SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
只要改變相應參數還可實(shí)現其他效果，如隱藏、固定不動(dòng)等。

下面我舉一個(gè)復選框的例子：
procedure TForm1.checkBox1Click(Sender: TObject);
begin
if checkBox1.Checked then
    SetWindowPos(Form1.Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE)
else
    SetWindowPos(Form1.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;

不建議使用 FormStyle:=fsStayOnTop; 這種方式。