у меня при закрытие формы появляется сообшения но при клике на mrcancel форма в серевно закрывается как сделат чтобы не закрылос окна
у меня код такое
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | 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 ;
|
Админ: недельный бан за несоблюдение правил оформления кода.
ПС. За это время неплохо бы и русский подучить.