кнопка mrcancel окно не закрылос

[Stilet]

alman12

Рекомендую так модальные формы не обрабатывать.
Если ты используешь ShowModal (как я понимаю), то тебе нужно обрабатывать ее результат.

case Form1.ShowModal of 

 mrYes:begin
  strm := TFileStream.Create('MyList.DAT', fmCreate);
  strm.WriteComponent(ListBox1);
  strm.Free;
 end;

 mrCancel: Тут чего-то для отмены.

end;

А действия в FormClose выкинь.

[eval]

написал на листике бумаги

[alman12]

Сообщение от Stilet

Рекомендую так модальные формы не обрабатывать.
Если ты используешь ShowModal (как я понимаю), то тебе нужно обрабатывать ее результат.

case Form1.ShowModal of 

 mrYes:begin
  strm := TFileStream.Create('MyList.DAT', fmCreate);
  strm.WriteComponent(ListBox1);
  strm.Free;
 end;

 mrCancel: Тут чего-то для отмены.

end;

А действия в FormClose выкинь.

не работает

[XE5]

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
buttonSelected : Integer;
begin
buttonSelected := MessageDLG('Save to listbox !!!',mtConfirmation,[mbYes,mbNo,mbCancel],0);
if buttonSelected = mrYes then
begin
strm := TFileStream.Create('MyList.DAT', fmCreate);
strm.WriteComponent(ListBox1);
strm.Free;
end;
if buttonSelected = mrcancel then
action :=caNone;
end;

И в очередном шоу битвы экстрасенсов побеждает...

[Stilet]

И в очередном шоу битвы экстрасенсов побеждает...

Ведущий.

не работает

А у меня работает.