Mam problem:
Mam edytor tekstu i chce, że jak na przykład użytkownik pisze tekst od nowa lub otwiera już istniejący, i kończy program to:
Jak sprawdzić czy sobie nie zapomniał zapisać ??
Tak jak jest w Wordzie, Notatniku i kilku(-set) innych programów.
Nie wiem, czy mnie rozumiecie :)
ja bym użył instrukcjii if
[code]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if Memo1.Modified = true then
begin
// procki zapisania dokumentu...
end;
end;
[/code]
Kontrolka tekstowa ma zdarzenie OnChange....
A ja bym radził operować zdarzeniem onCloseQuery, wtedy mamy pewność, że nie stracimy dancych (a już przynajmniej większe bezpieczeństwo).
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose := False;
if memo.modified = true then
begin
...
Była tu bardzo dobra odpowiedź ikari. Niestety - zostało to usunięte.
modify też jest...
Moim zdaniem parametr Modify jest łatwiejszy :P
Była tu bardzo dobra odpowiedź ikari. Niestety - zostało to usunięte.
Mogę spytać - ZA CO??
Mogę spytać - ZA CO??
Ikari, to nie Twoja wina. Lofix po prostu usunął mego Posta i przy okazji Twoją odpowiedź :)