Как отловить момент завершения изменения размеров формы?

[Talker1]

Привет!

Уткнулся в проблему как отловить момент завершения изменения размеров формы. Событие onResize срабатывает в начале изменения размеров. Т.е. скажем взяли мышкой и начали тянуть край формы, вот onResize в самом начале и выстреливает, а как поймать момент завершения изменения? Чтобы уже знать размеры формы.
На ум приходит только повесить таймер, но это извращение.
Может, кто сталкивался с таким?

[resident]

а как поймать момент завершения изменения?

После изменения форма должна перерисовываться, onPaint вроде

[*Rik*]

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

type

  { TForm1 }

  TForm1 = class(TForm)
  private
    { private declarations }
  public
    procedure WMSize(var Message: TLMSize); message LM_SIZE;
  end; 

ps:
TLMSize объявлено в LMessages..

[Talker1]

resident, *Rik*,
спасибо!