Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Блокировка и разблокировка перерисовки компонента

Delphi , Компоненты и Классы , Компоненты

Блокировка и разблокировка перерисовки компонента


procedure LockControl(c: TWinControl; bLock: 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); 
    RedrawWindow(c.Handle, nil, 0, 
      RDW_ERASE or RDW_FRAME or RDW_INVALIDATE or RDW_ALLCHILDREN); 
  end; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  LockControl(DBGrid1, True); 
  try 
    // do convoluted things to the grid 
  finally 
    LockControl(DBGrid1, False); 
  end; 
end;


Некоторые коммпаненты имеют встроенный методы BeginUpdate и EndUpdate;

Статья Блокировка и разблокировка перерисовки компонента раздела Компоненты и Классы Компоненты может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Компоненты ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
19.09.2021 14:40:34/0.002791166305542/2