Ĺadny brzuch
Witam! Tworzę edytor dokumentów HTML i mam mały problem z taką częścią kodu
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction); var wynik: integer; begin if (SynEdit1.Modified) and (synedit1.text<>'') then begin wynik:=MessageBox(handle,'Plik został zmieniony. Czy chcesz go zapisać?',pchar(application.title),MB_YESNOCANCEL+MB_ICONWARNING); if Wynik = IDYES then begin if savedialog1.Execute then begin SynEdit1.Lines.savetoFile(savedialog1.FileName); end; end else if Wynik = IDCANCEL then begin // anulowanie zamykania JAKI KOD MAM TU WSTAWIĆ, ŻEBY ANULOWAĆ ZAMKNIĘCIE APLIKACJI? end; end; end;
Czy ma ktoś pomysł jaki kod wstawić w miejsce komentarza, aby przy rozpoczęciu zamykania okna i wykonywaniu procedury Form.Close i po kliknięciu na "Anuluj" było można anulować rozpoczęte zamykanie aplikacji?
CloseAction := caNone;
Chodzilo o taki efekt?
CloseAction := caNone;
Chodzilo o taki efekt?
Tak jest! Dokładnie. Dziękuję :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction); var wynik: integer; begin if (SynEdit1.Modified) and (synedit1.text<>'') then begin wynik:=MessageBox(handle,'Plik został zmieniony. Czy chcesz go zapisać?',pchar(application.title),MB_YESNOCANCEL+MB_ICONWARNING); if Wynik = IDYES then begin if savedialog1.Execute then begin SynEdit1.Lines.savetoFile(savedialog1.FileName); end; end else if Wynik = IDCANCEL then begin // anulowanie zamykania JAKI KOD MAM TU WSTAWIĆ, ŻEBY ANULOWAĆ ZAMKNIĘCIE APLIKACJI? end; end; end;
Czy ma ktoś pomysł jaki kod wstawić w miejsce komentarza, aby przy rozpoczęciu zamykania okna i wykonywaniu procedury Form.Close i po kliknięciu na "Anuluj" było można anulować rozpoczęte zamykanie aplikacji?
CloseAction := caNone;
Chodzilo o taki efekt?
CloseAction := caNone;
Chodzilo o taki efekt?
Tak jest! Dokładnie. Dziękuję :)