У меня есть куча форм, и я хочу автоматизировать их, чтобы они открывались и закрывались сами по себе.
Я знаю, как заставить их открываться (имея функцию OnActivate), но у меня проблемы с их закрытием.
Так, например, у меня есть
procedure TProgressForm.FormActivate(Sender: TObject);
begin
inherited;
if FModItem.IsInQueue then
begin
RunBtnClick(Self);
ModalResult := mrOK;
end;
end;
который выполняет функцию. Я хочу закрыть окно после запуска функции, что и должен сделать ModalResult.
(Я также попытался добавить строку ModalResult в самом конце процедуры RunBtnClick, но это тоже не сработало)
и я создаю форму следующим образом:
ProgForm := TProgressForm.Create(Self, FModItem);
Self.Visible := False;
try
if ProgForm.ShowModal = mrOK then
begin
Left := ProgForm.Left;
Top := ProgForm.Top;
end;
Мне удалось создать кнопки, чтобы закрыть форму, просто добавив mrOK в Modal Result в Object Inspector, но я не могу явно это сделать
Может ли кто-нибудь понять, почему он не работает?
Спасибо