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

[alman12]

при нажимание mrcancel форма не закрылос
у меня код такое

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 var
  buttonSelected : Integer;
begin
 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

end;

[-=Virus=-]

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

при нажимание mrcancel форма не закрылос
у меня код такое

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
 var
  buttonSelected : Integer;
begin
 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

end;

По внимательнее будь.
После

  if buttonSelected = mrcancel then

Вставь

Close;

[alman12]

Сообщение от -=Virus=-

По внимательнее будь.
После

  if buttonSelected = mrcancel then

Вставь

Close;

но так закрывается форма при нажимание cancel

[Алексей_2012]

при нажимание mrcancel форма не закрылос

ну а ты чо хотел? Что просил, то и получил, не??

но так закрывается форма при нажимание cancel

[alman12]

Сообщение от Алексей_2012

ну а ты чо хотел? Что просил, то и получил, не??

я хочу что при нажимание на cancel прога не закрывался

[BDA]

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
    abort;

Не проверял.

[Аватар]

Просто Action:=caNone; в OnClose и форма не закроется

[alman12]

не работает программа закрывается

[BDA]

Проверил в RAD Studio 2010 вариант Аватара и свой - оба работают. Что у Вас за версия дельфи?
Еще одна догадка - Вы не заметили сточки buttonSelected := MessageDLG(...);.

[alman12]

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

Проверил в RAD Studio 2010 вариант Аватара и свой - оба работают. Что у Вас за версия дельфи?
Еще одна догадка - Вы не заметили сточки buttonSelected := MessageDLG(...);.

у меня Delphi XE2