|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
не закрылась форма при нажатии mrcancel
у меня при закрытие формы появляется сообшения но при клике на 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; ПС. За это время неплохо бы и русский подучить. Последний раз редактировалось Admin, 05.04.2014 в 20:52. |