| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Временное отключение OnPaint. [D6]
.: Joiro :. © (2002-06-25 12:22:00)И очередной вопрос к уважаемым мастакам:
Есть ли возможность на некоторое время остановить перерисовку формы? То есть заставить её НЕ вызывать 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;
Внук (2002-06-25 13:26:00) [1]Событие OnPaint и сообщение WM_PAINT - это сильно разные вещи :) Определитесь, что вам нужно... Первое делается элементарным флагом, второе - написанием собственного обработчика, к примеру (см. Skier © (25.06.02 12:57)).
Skier (2002-06-25 12:57:00) [2]> .: Joiro :.
А ты попробуй использовать WM_PAINT.
Пишешь свой обработчик на это сообщение и при нужных
тебе условиях выходишь из обработчика, тем самым блокируя
перерисовку.
| |
