Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.09.01;
Скачать: CL | DM;

Вниз

подвисает прорисовка контролов   Найти похожие ветки 

 
TForm   (2012-12-22 15:00) [0]

по нажатию на кнопку в программе, выполняется sql-запрос, который отбирает нуженые записи и выводит их. если записей много, то на этапе выполнения sql-запроса подвисает прорисовка контролов на форме. как это исправить?


 
Юрий Зотов ©   (2012-12-22 15:35) [1]

DisableControls?


 
TForm   (2012-12-22 15:54) [2]


> DisableControls?


не помогает


 
antonn ©   (2012-12-22 16:02) [3]


> Юрий Зотов ©   (22.12.12 15:35) [1]

видимо речь о вынесении работы с БД в отдельный поток...


 
TForm   (2012-12-22 16:14) [4]

Для примера, без БД

Модуль основной форм:


unit Unit1;

interface

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

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

uses unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
 Form2: TForm2;
begin
 Application.CreateForm(TForm2, Form2);
 try
   if Form2.ShowModal = mrOK then
     Form2.EmulateSlowOperation;
 finally
   Form2.Free;
 end;
end;

end.


Модуль модальной формы:


unit Unit2;

interface

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

type
 TForm2 = class(TForm)
   Button1: TButton;
 private
   { Private declarations }
 public
   { Public declarations }
   procedure EmulateSlowOperation;
 end;

var
 Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.EmulateSlowOperation;
var
 I: Integer;
begin
 for I := 0 to 20 do
 begin
   Sleep(100);
 end;
end;

end.


Ситуация:

1. Вызываем модальную форму по нажатию кнопки Button1 в основной форме
2. Перемещаем отобразившуюся модальную форму так, чтобы она частично перекрывала кнопку Button1 в основной форме
3. Нажимаем кнопку Button1 в модальной форме

Итог: На момент выполнения метода EmulateSlowOperation некорректно отрисовывается кнопка Button1 в основной форме.


 
RWolf ©   (2012-12-22 16:17) [5]

procedure TForm2.EmulateSlowOperation;
var
 I: Integer;
begin
 for I := 0 to 20 do
 begin
   Sleep(100);
   Application.ProcessMessages;
 end;
end;


 
TForm   (2012-12-22 16:19) [6]


> for I := 0 to 20 do
>  begin
>    Sleep(100);
>    Application.ProcessMessages;
>  end;


у меня здесь вместо цикла запрос на выборку большого количества записей. вставка ProcessMessages проблему не решила.


 
RWolf ©   (2012-12-22 16:21) [7]

тогда в отдельный поток.


 
TForm   (2012-12-22 16:30) [8]


> в отдельный поток


помогло, спасибо



Страницы: 1 вся ветка

Текущий архив: 2013.09.01;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.006 c
10-1139831419
alexey_public
2006-02-13 14:50
2013.09.01
Нумерация страниц для печати в Delphi.


2-1355841916
Den
2012-12-18 18:45
2013.09.01
XLMDocumnet пройтись по всем нодам.


1-1311171341
bestolkov
2011-07-20 18:15
2013.09.01
Преобразование чисел


15-1364278811
N.Cage
2013-03-26 10:20
2013.09.01
Amd vs Intel


2-1355941091
SKIPtr
2012-12-19 22:18
2013.09.01
проблемы в ScrollBox