Немодальная форма

← →
Spot-up © (2006-05-30 13:13) [0]

Хотел, чтобы вовремя выполнения запроса (очень долгого;)) перед глазами маячила gif анимация, но выходит пустая форма. После выполнения запроса, если убрать close, анимашка появляется.

procedure TForm1.Button2Click(Sender: TObject); begin dm.SPTest.Close; with DM.SPTest do begin Parameters.ParamByName("@year").Value:=Edit1.Text; Form3.Show; Open; Form3.Close; end; end;

← →
tesseract © (2006-05-30 13:15) [1]

попробуй form3.update.

← →
evvcom © (2006-05-30 14:02) [2]

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

← →
comtat © (2006-05-30 14:48) [3]

пробуй Application.ProcessMessage();

← →
jb (2006-05-30 19:52) [4]

> пробуй Application.ProcessMessage();

Не поможет - анимашка один раз отрисуется и все.
evvcom - прав!

Для работы с потоками обычно используют класс TThread.
Подробную информациию можно найти вкниге "Руководство разработчика" С. Тейкстра К. Пачеко.

Взять ее можно на сайте:
http://www.podgoretsky.com/ddp.html

← →
RDen (2006-05-31 07:18) [6]

перед началом выполнения запроса - Form3.refresh

Немодальная форма Найти похожие ветки