Question

delphi程序用复选框控制窗口置顶

procedure TForm1.CheckBox_ontopClick(Sender: TObject);
begin
if (CheckBox_ontop.checked=true) then
begin
Form1.FormStyle :=fsstayontop;
CheckBox_ontop.Checked :=false;
end
else
Form1.FormStyle :=fsNormal;
end;

我想用一个CheckBOX控制窗体置顶，用上面的代码虽然能实现但点击CheckBOX的时候窗体总是闪烁一下，很不爽，这是为什么？怎样消除这个闪烁？
已经去掉了CheckBox_ontop.Checked :=false;
窗体需要重画，那有没有办法不闪烁呢？我看很多程序都有置顶这一选项，但都没闪烁的

Answer 1

CheckBox1.Checked :=false;
把这句去除掉,不去掉这句那么你永元也不能把它变成勾选状态.

因为你点击的时候它自动变成勾选状态了,而你却又把它手动设成false 了

闪烁的原因是因为窗体需要重画

Answer 2

if CheckBox_ontop.Checked then
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE)
else
SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE);