Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.27;
Скачать: 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 вся ветка

Текущий архив: 2003.10.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
1-89337
Boris69
2003-10-16 09:57
2003.10.27
Как сделать многоуровневую шапку таблицы в StringGride???


3-89141
Sedunov Vitaly
2003-10-07 09:10
2003.10.27
@@spid и PacketRecords


6-89422
IgorRu
2003-08-20 12:47
2003.10.27
Как послать message Компьютеру в сети


1-89226
vis1979
2003-10-14 12:07
2003.10.27
Hint


8-89403
Intell
2003-05-02 14:56
2003.10.27
Запись в TMediaPlayer.