Форма мерцает при ресайзе

[timsoft]

В form_resize стоит у меня проверка на мин. ширину и мин. высоту
По достижению этого значения форма начинает мерцать.

Код такой

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

if me.width < 5000 then me.width = 5000
if me.height < 5000 then me.height = 5000
...


Я так понимаю, что происходит рекурсия.
Подскажите, как этого красиво избежать.

[alibek]

Если красиво, то надо ставить хук. Детали тут. Ставишь хук на форму, в обработчике ловишь WM_GETMINMAXINFO и в ней проверяешь размеры формы. Если есть локальный MSDN, то там есть и пример для VB.

[alibek]

Кстати, нашел более подходящий линк, вот:
http://support.microsoft.com/default.as ... -us;185733

[timsoft]

alibek, спасибо!

Пример нашел!

[timsoft]

разобрался, но не до конца
а как в Hook передать для каждой формы свой мин. размер?

[GSerg]

По hwnd их различай.
А если хочешь в модуль класса перенаправить, то см. Subclasser в Проектах...

[alibek]

Либо для каждой формы определяй свой WindowProc.

[timsoft]

По hwnd их различай.

типа minSize(hWND) = 500?
памяти отожрет два гига
или коллекцию создавать?

[GSerg]

select case hwnd
Или коллекцию создавать.

[timsoft]

select case hwnd
Или коллекцию создавать.

точно! проще всего

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

select  case hwnd
  case frmMain.hwnd
    minsize = 500
  case frmSettings.hwnd
    minsize=900
  case else
    minsize = 230
end select


ща забацаю!
спасибо!