Главная » 2021»Июль»3 » Lazarus checkbox пример работы - форма всегда сверху (включение и выключение)
16:19
Lazarus checkbox пример работы - форма всегда сверху (включение и выключение)
procedure TForm1.CheckBox1Change(Sender: TObject);
begin
if CheckBox1.Checked=True then Form1.FormStyle:=fsSystemStayOnTop;
if CheckBox1.Checked=False then Form1.FormStyle:=fsNormal;
end;