Временное отключение OnPaint.

← →
.: Joiro :. © (2002-06-25 12:22) [0]

И очередной вопрос к уважаемым мастакам:

Есть ли возможность на некоторое время остановить перерисовку формы? То есть заставить её НЕ вызывать OnPaint. В этом примере DragGen изменяет вид формы и надо бы чтобы он не менялся до завершения перетаскивания.

procedure TForm1.Dragging(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X,Y: Integer); const SC_DRAGMOVE : Longint = $F012; begin if ssLeft in Shift then begin Form1.TransparentColor := True; DragGen; ReleaseCapture; SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0); Form1.Left := Form1.Left div 8*8; Form1.Top := Form1.Top div 8*8; Form1.TransparentColor := False; end; end;

← →
Skier © (2002-06-25 12:57) [1]

> .: Joiro :.
А ты попробуй использовать WM_PAINT.
Пишешь свой обработчик на это сообщение и при нужных
тебе условиях выходишь из обработчика, тем самым блокируя
перерисовку.

Событие OnPaint и сообщение WM_PAINT - это сильно разные вещи :) Определитесь, что вам нужно... Первое делается элементарным флагом, второе - написанием собственного обработчика, к примеру (см. Skier © (25.06.02 12:57)).

Временное отключение OnPaint. Найти похожие ветки