Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Остановка перерисовки формы

Автор: VTK 6.10.2006, 09:54

Помогите, плз, остановить перерисовку формы

Автор: Yanis 6.10.2006, 09:59

Код

procedure WMERASEBKGND(var M: TWMEraseBkgnd); message WM_ERASEBKGND;

{ ... }

procedure TForm1.WMERASEBKGND(var M: TWMEraseBkgnd);
begin
  M.Result := 0;
end;

Автор: VTK 6.10.2006, 10:12

Прошу прощения за тупость, но можно пару коментариев о том чего с этим делать. В смысле можно как-нибудь сначала остановить о потом возобновить перерисовку.

Автор: Yanis 6.10.2006, 10:29

Цитата(VTK @ 6.10.2006, 11:12

)

Прошу прощения за тупость, но можно пару коментариев о том чего с этим делать

Определение процедуры впихиваешь в public, например своей формы, потом жмёшь Ctrl+Shift+C и пишешь недостающий код.

Добавлено @ 10:30
Т.е. вот так:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMERASEBKGND(var M: TWMEraseBkgnd); message WM_ERASEBKGND;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.WMERASEBKGND(var M: TWMEraseBkgnd);
begin
  M.Result := 0;
end;

end.

Автор: VTK 6.10.2006, 10:39

Ну не такой же я тупой smile

. я видимо неправильно сформулировал вопрос. Мне нужно сначала остановить перерисовку, выполнить кое-какие манипуляции с раскиданными на форме компонентами(visibal:=true), а потом уже все это отрисовать. А то уж больно в глазах рябит когда десять строчек перерисовывается.

Автор: Yanis 6.10.2006, 11:04

VTK
Пробовал DoubleBuffered := True; ?

Автор: VTK 6.10.2006, 11:28

Попробовал - результат тот же. Может изначально идея тухлая?

Код


combobox1.Visible:=a;
DBEdit1.Visible:=a;
DBEdit2.Visible:=a;
DBEdit3.Visible:=a;
DBEdit4.Visible:=a;
DBEdit5.Visible:=a;
DBEdit6.Visible:=a;
combobox2.Visible:=a;
combobox71.Visible:=a;
DBEdit7.Visible:=a;
DBEdit8.Visible:=a;
DBEdit9.Visible:=a;
DBEdit10.Visible:=a;

edit3.Visible:=a;
combobox36.Visible:=a;
DBEdit131.Visible:=a;
DBEdit141.Visible:=a;
DBEdit142.Visible:=a;
DBEdit161.Visible:=a;
DBEdit162.Visible:=a;
DBEdit181.Visible:=a;
DBEdit182.Visible:=a;
DBEdit201.Visible:=a;
DBEdit202.Visible:=a;
combobox91.Visible:=a;

И так от 1 до 10 раз. Естественно, что все элементы появляются постепенно, по мере выполнения вышеуказанных операторов. А я бы хотел, чтобы они появились на форме все сразу smile

Автор: Alexeis 6.10.2006, 11:57

DoubleBuffered := True; - надо установить для всех компонентов.

Автор: Yanis 6.10.2006, 12:23

VTK
Попробуй просто разместить все компоненты, который нужно прятать на отдельной панели и меняй её свойство Visible.

Автор: VTK 6.10.2006, 13:12

Не все так просто. Во-первых, число компонент около 250, а, во-вторых, при каждой транзакции требуется прятать разное количество компонент. Может быть есть еще варианты, о которых я не знаю? smile

Автор: Rennigth 6.10.2006, 14:04

Попробуй

Код


  LockWindowUpdate

или
http://forum.vingrad.ru/index.php?showtopic=40286&unread=1&hl=lockwindowupdate

Автор: VTK 6.10.2006, 14:41

Попробовал http://forum.vingrad.ru/index.php?showtopi...ockwindowupdate В переменную HWND передаю Form1.Handle, но ощутимых результатов это не принесло... Может я че не так сделал?

Добавлено @ 14:55
Rennigth,

Я просто перепутал их местами!!!!!! Сначало нужно использовать BeginScreenUpdate(начало блокировки) а потом EndScreenUpdate(конец блокировки).

ОГРОМНОЕ СПАСИБО! Rennigth, ОЧЕНЬ ВЫРУЧИЛ!!!!