Форум: "Начинающим";
Текущий архив: 2006.06.18;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 - прав!

---

← →
Kolan ©   (2006-05-30 20:00) [5]

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

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

---

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2006.06.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.014 c