Как уловить начало изменения размеров формы.

[novichok1]

Всех приветствую. Подскажите пожалуйста, с помощью какого события можно подловить момент начала изменения размеров формы. Надо, чтобы при изменении размеров формы пропорционально изменялись размеры всех компонентов, я пытаюсь сохранить первичные размеры, далее найти коэффициент пропорции новых размеров по отношению к старым, и размеры компонентов умножить на полученный коэффициент, при этом конечно округляя полученные размеры. Событие onResize возвращет новые размеры, а вот запомнить старые не удается. Если можно сделать все это как то другим путем, то тоже сойдет за решение. Заранее всем спасибо.

[VadikV]

можно в свойство tag каждого компонента прописывать его либо первоначальные (оригинальные) размеры, либо предыдущие размеры. ну и при ресайзе уже отталкиваться от этих цифр.
или завести ассоциативный массив, в которые прописывать нужные цифры.

[MaxNik2009]

с помощью какого события можно подловить момент начала изменения размеров формы

FormCanResize

пропорционально изменялись размеры всех компонентов

у компонентов есть свойство Anchors, поиграй с ним, это тебе поможет...

[Sibedir]

Считать нужно именно от ПЕРВОНАЧАЛЬНОГО размера, а округлять именно при окончательном назначении габаритов.

var
  OldRects: array of TRect;
  OldSize: TPoint;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  OldSize.X := ClientWidth;
  OldSize.Y := ClientHeight;
  SetLength (OldRects, ControlCount);
  for i := 0 to Length (OldRects) - 1 do
    OldRects[i] := Controls[i].BoundsRect;
end;

procedure TForm1.FormResize(Sender: TObject);
var
  i: Integer;
  kX, kY: Real;
  BR: TRect;
begin
  kX := ClientWidth / OldSize.X;
  kY := ClientHeight / OldSize.Y;
  for i := 0 to Length (OldRects) - 1 do begin
    BR.Left   := Round (OldRects[i].Left   * kX);
    BR.Right  := Round (OldRects[i].Right  * kX);
    BR.Top    := Round (OldRects[i].Top    * kY);
    BR.Bottom := Round (OldRects[i].Bottom * kY);
    Controls[i].BoundsRect := BR;
  end;
end;

[novichok1]

Заработало, не совсем так как я хотел, но дальше сам разберусь. Спасибо всем кто откликнулся, и огромное спасибо Sibedir.

[asmodey1]

Что-то вы тут намутили...
А ежели попроще ?

  private
    { Private declarations }
    procedure WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
    message WM_GETMINMAXINFO;
...
procedure TForm1.WMGetMinMaxInfo(var Msg: TWMGetMinMaxInfo);
begin
{...
тут запоминаем все, что нужно и не нужно :)
...}
// Можно "пикнуть", чтобы просигнализировать, что гадкий юзер меняет размер формы :)
MessageBeep(0);
inherited;
end;

[Sibedir]

asmodey1, что это было? Зачем игнорировать юзера? ТС же четко поставил задачу: масштабировать компоненты при изменении размеров формы.

[ArtGrek]

у компонентов есть свойство Anchors, поиграй с ним, это тебе поможет...

гениалное просто, че мудрить то, вед всего 4 параметра, поддерживаю

[asmodey1]

Сообщение от Sibedir

asmodey1, что это было? Зачем игнорировать юзера? ТС же четко поставил задачу: масштабировать компоненты при изменении размеров формы.

Прошу прощения... Постараюсь исправиться... Видимо, мне просто показалось сослепу :

Сообщение от novichok1

Подскажите пожалуйста, с помощью какого события можно подловить момент начала изменения размеров формы

novichok1 - это ТС...

[Sibedir]

А-а-а, ну всё, понял.
Но эт все-равно не поможет. Запоминать нужно именно при создании формы.