Развертывание окна

← →
Damager (2006-05-19 17:49) [0]

При развертывании окно немного дергается, и выглядит это некрасиво.

Можно ли временно отключить прорисовку в момент развертывания? Чтобы получить сразу окно в полный экран.

← →
Rial © (2006-05-19 18:09) [1]

Отрисовку окна можно отключить вот так.

procedure LockControl(Const C:TWinControl;Const bLock,bMustRepaint:Boolean); begin If(C=Nil)or(C.Handle=0) then Exit; If(bLock)then SendMessage(C.Handle,WM_SETREDRAW,0,0) else begin SendMessage(C.Handle,WM_SETREDRAW,1,0); If (bMustRepaint)then RedrawWindow(C.Handle,Nil,0, RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN); end; end;

Но, скорее всего, проблема не в этом.
Нужно уменьшить количество отрисовываемых элементов в окне или
отрисовывать их постепенно после появления окна в первый раз.

Еще попробуй
DoubleBuffered:=True
для формы и панелей.

Возможно, у тебя в обработчике OnResize формы что - либо громоздкое
написано. А при максимизации этот обработчик быдет вызываться, ИМХО,
4 раза. Так что учти это.

Развертывание окна Найти похожие ветки