procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true then
begin
form1.FormStyle:=fsStayOnTop;
end
else
begin
form1.FormStyle:=fsNormal;
end;
end;
窗体1有一个CheckBox1。
在点选时,窗体会闪一下,为什么 呢??
begin
if checkbox1.Checked=true then
begin
form1.FormStyle:=fsStayOnTop;
end
else
begin
form1.FormStyle:=fsNormal;
end;
end;
窗体1有一个CheckBox1。
在点选时,窗体会闪一下,为什么 呢??
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货