| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Spot-up ©   (2006-05-30 13:13:00) 

Хотел, чтобы вовремя выполнения запроса (очень долгого;)) перед глазами маячила 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;

---

RDen   (2006-05-31 07:18:00) [1]

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

---

Kolan   (2006-05-30 20:00:00) [2]

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

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

---

jb   (2006-05-30 19:52:00) [3]

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

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

---

comtat   (2006-05-30 14:48:00) [4]

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

---

evvcom   (2006-05-30 14:02:00) [5]

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

---

tesseract   (2006-05-30 13:15:00) [6]

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

---

Наверх