Скачать: CL | DM;

Выгрузка и загрузка формы   Найти похожие ветки 

← →
explorer ©   (2003-10-10 13:40) [0]

Мастера!
По таймеру одной формы, загружаю другую :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
inc(Sek);
if (Sek = 20) then
begin
Sek:=0;
with Query1 do
begin
if (FieldByName("CategoryAB").AsBoolean = true) then
Kat := true else Kat := false;

Application.CreateForm(TFormKatAB,FormKatAB);
FormKatAB.ShowModal();
FormKatAB.Free;
end;

затем, так же по таймеру закрываю эту форму

procedure TFormKatAB.TimerRestartTimer(Sender: TObject);
begin
inc(Sek);
if (Sek = Second) then
begin
........
NotPrapka := true;
FormKatAB.Free;
end;
end;

и возвращаюсь к первой. Грабли в том, что эта форма перестает работать.
Хотя таймер работает, но на всякие KeyPress не отвечает, а до этого работала.

---

← →
Иван Шихалев ©   (2003-10-10 14:25) [1]

> FormKatAB.ShowModal();

---

← →
kavlad   (2003-10-10 14:28) [2]

Ты показываешь модальную форму - FormKatAB.ShowModal();
Видимо, в этом и проблема. Чтобы нормально закрыть ее надо присвоить что-нибудь свойству ModalResult.
Да еще борланд рекомендует для уничтожения форм вызывать метод Release.

---

← →
explorer ©   (2003-10-10 15:00) [3]

А как тогда лучше показывать форму и ее уничтожать?

---

← →
explorer ©   (2003-10-14 07:34) [4]

Как тогда в этом случае правильно вызывать форму и уничтожать ее?

---

← →
explorer ©   (2003-10-14 08:28) [5]

все! разобрался

---

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

Скачать: CL | DM;



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