[XaKeR282]

Сообщение от Black Raider

Например можно сделать так:

Код:

//FORM1
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  form2.Tag:=0;
  form2.showmodal;
  if form2.Tag=3 then 
    Action:=caNone
end;

//Form2
procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
  form2.Tag:=3;
    close;
end;

Попробовал этот код, 100 ощибок!!!