Фиксированые размеры формы.

[DiSe]

Имеется код:

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

MinH =2000
MinW = 3000
Private Sub Form_Resize()
  If Form1.Height < MinH Then Form1.Height = MinH
  If Form1.Width < MinW Then Form1.Width = MinW
End Sub


---
Этот отрывок кода происходит при изменении размеров формы. Но при этом форма "моргает". Во всех приложениях такого нет. Значит я неправильно делаю. Тогда как?

[Dmitriy2003]

Ты должен создать субкласс.... Знаеш, у каждого (почти) окна есть своя оконная процедура...
Именно в ней ты и должен менять размер окна поскольку ето происходит перед событием Resize)

[Vi]

Есть такое сообщение Windows - WM_GETMINMAXINFO, - которое и отвечает за отсутствие "моргания" при изменении размеров окна. Его нужно отлавливать при помощи субклассинга и обрабатывать.

[GSerg]

http://www.vbstreets.ru/download.asp?id=474

[Eduard]

Ты должен создать субкласс.... Знаеш, у каждого (почти) окна есть своя оконная процедура...
Именно в ней ты и должен менять размер окна поскольку ето происходит перед событием Resize)

Да только вот как создать этот субкласс, может подскажите, то эта проблема с размрами окна уже принадела.