В программе открывается модальное окно (должно выполнять некоторую проверку, если все Ок, то закрыться, если нет, пользовытель выполняет нектороые действия). Делаю так:
Код:
Form1
procedure TForm1.FormActivate(Sender: TObject);
begin
Form2.ShowModal;
FirstShow:=false;
end;
Form2
procedure TForm2.FormActivate(Sender: TObject);
begin
Form2.ModalResult:=mrCancel;
Form2.Close;
end;
MAD: Пользуемся тегами!
По всем законам физики Form2 должно закрываться. У меня на экране 2 окна ((((