Помогите мне с этой задачей:
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form2.showmodal;
end;
Это для Form1. Т.е когда закрываю её должно вызваться Form2
http://www.delphisources.ru/forum/at...d=129615910 9
Когда нажимаю на кнопку "Да" то форма закрывается текст сохраняется.
А пр нажатие на нопку "Нет" тогда хочу чтоб закрыласьтолько вторая форма, а первая не закрывалась, а код я написал вот так:
Код:
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.Memo1.Lines.SaveToFile('1.txt');
Form2.Close;
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
Form2.Close;
end;
А при таком коде он мне обаокна закрывает.
За ранее блогодаен