Изменение размеров формы с помощью флажков CheckBox

[nik-katya]

2мя способами реализовывала, препод говорит не то....

Создайте приложение, при выполнении которого на экране появляется окно формы небольшого размера с группой из четырех флажков в сброшенном состоянии, расположенных сверху вниз, при этом верхний флажок с текстом "1", второй сверху флажок с текстом "2", третий сверху флажок с текстом "3", нижний флажок с текстом "4". Тексты должны находиться справа от соответствующих флажков.
При установке или сбросе флажков высота и ширина формы должны увеличиваться по сравнению с первоначальными размерами формы в количество раз в соответствии с текстом рядом с флажком, установленным в последнюю очередь. При сбросе всех флажков приложение должно завершить свое выполнение.

[Naeel Maqsudov]

Тут не может быть двух способов.
Все 4 флажка нацеливаются на один обработчик:

Код: Выделить всё

procedure TForm1.DoResize(Sender: TObject);
var
  factor:integer;
begin
  if not (CheckBox1.Checked or CheckBox2.Checked or
  CheckBox3.Checked or CheckBox4.Checked) then close else begin
    factor:=strtoint((sender as TCheckBox).caption);
    height:=height*factor;
    width:=width*factor;
  end;
end;

Это всё.