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

[XE5]

Мда, тут нужно мощное колдунство, чтоб узнать мысли автора. Сталкивались, знаем. Дешевле пройти мимо.

[alman12]

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

Мда, тут нужно мощное колдунство, чтоб узнать мысли автора. Сталкивались, знаем. Дешевле пройти мимо.

не хочеш помоч ты сам проходи мимо ,

[XE5]

alman12 Уже прошёл. Сам виноват, что практикуешь Китайский вместо Русского.

[alman12]

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

alman12 Уже прошёл. Сам виноват, что практикуешь Китайский вместо Русского.

ты не понел что спросил ?

кто может помочь помогите

[eval]

помогают тому кто и сам себе помогает, вам же помочь себе не хочется, так какой смысл тогда вам помогать?

подождите, всегда найдутся те кто захочет мазахировать с вами, в итоге что-то да наговнокодите, главное терпение

[BDA]

Покажите текущий код.

[alman12]

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;

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

Покажите текущий код.

[BDA]

Кхм, ну и где в нем исправления?
Ни buttonSelected := MessageDLG(...);, ни Action:=caNone;, ни abort;.
Как оно заработает без исправлений?

[alman12]

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

Кхм, ну и где в нем исправления?
Ни buttonSelected := MessageDLG(...);, ни Action:=caNone;, ни abort;.
Как оно заработает без исправлений?

я написал abort; и action:=canone ; но по прежному програма закрывается

[BDA]

Ну так Вы покажите, как написали.