Текущий архив: 2002.07.08;
Скачать: CL | DM;
Вниз
Временное отключение 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.
Пишешь свой обработчик на это сообщение и при нужных
тебе условиях выходишь из обработчика, тем самым блокируя
перерисовку.
← →
Внук © (2002-06-25 13:26) [2]Событие OnPaint и сообщение WM_PAINT - это сильно разные вещи :) Определитесь, что вам нужно... Первое делается элементарным флагом, второе - написанием собственного обработчика, к примеру (см. Skier © (25.06.02 12:57)).
Страницы: 1 вся ветка
Текущий архив: 2002.07.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.013 c
