Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Остановка перерисовки формы 
:(
    Опции темы
VTK
Дата 6.10.2006, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 46
Регистрация: 4.10.2006

Репутация: нет
Всего: нет
Помогите, плз, остановить перерисовку формы 
PM MAIL ICQ   Вверх
Yanis
Дата 6.10.2006, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Код
procedure WMERASEBKGND(var M: TWMEraseBkgnd); message WM_ERASEBKGND;

{ ... }

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



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
VTK
Дата 6.10.2006, 10:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 46
Регистрация: 4.10.2006

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

Это сообщение отредактировал(а) VTK - 6.10.2006, 10:35
PM MAIL ICQ   Вверх
Yanis
Дата 6.10.2006, 10:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(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.



--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
VTK
Дата 6.10.2006, 10:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 46
Регистрация: 4.10.2006

Репутация: нет
Всего: нет
Ну не такой же я тупой  smile . я видимо неправильно сформулировал вопрос. Мне нужно сначала остановить перерисовку, выполнить кое-какие манипуляции с раскиданными на форме компонентами(visibal:=true), а потом уже все это отрисовать. А то уж больно в глазах рябит когда десять строчек перерисовывается.
PM MAIL ICQ   Вверх
Yanis
Дата 6.10.2006, 11:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
VTK
Пробовал DoubleBuffered := True; ?


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
VTK
Дата 6.10.2006, 11:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 46
Регистрация: 4.10.2006

Репутация: нет
Всего: нет
Попробовал - результат тот же. Может изначально идея тухлая? 
Код

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 
PM MAIL ICQ   Вверх
Alexeis
Дата 6.10.2006, 11:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
Yanis
Дата 6.10.2006, 12:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

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


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
VTK
Дата 6.10.2006, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 46
Регистрация: 4.10.2006

Репутация: нет
Всего: нет
Не все так просто. Во-первых, число компонент около 250, а, во-вторых, при каждой транзакции требуется прятать разное количество компонент. Может быть есть еще варианты, о которых я не знаю? smile 
PM MAIL ICQ   Вверх
Rennigth
Дата 6.10.2006, 14:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 49
Всего: 76
Попробуй 
Код

  LockWindowUpdate

или
http://forum.vingrad.ru/index.php?showtopi...ockwindowupdate


--------------------
(* Honesta mors turpi vita potior *)
PM MAIL ICQ   Вверх
VTK
Дата 6.10.2006, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 46
Регистрация: 4.10.2006

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

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

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

ОГРОМНОЕ СПАСИБО! Rennigth, ОЧЕНЬ ВЫРУЧИЛ!!!! 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0522 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.