Выгрузка и загрузка формы

← →
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]

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

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

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

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