---

Hej.

Hvordan får jeg i Delphi skrevat, at et program - når man klikke på luk i en
menu - skal spørge, om man vil gemme før man lukker. Hvis man klikker på "A"
skal man gå til gem-dialogen og hvis man trykker på "B" skal programmet
lukke uden at gemme. (Det sidste er vel med begin close; end;)

---

"Hans Larsen" <Nospam> skrev i en meddelelse
news:425d186d$0$5102$ba624c82@nntp06.dk.telia.net...

> Hvordan får jeg i Delphi skrevat, at et program - når man klikke på luk i
> en menu - skal spørge, om man vil gemme før man lukker. Hvis man klikker
> på "A" skal man gå til gem-dialogen og hvis man trykker på "B" skal
> programmet lukke uden at gemme. (Det sidste er vel med begin close; end;)
>


Det nemmeste er at bruge formens onCloseQuiery event (det bliver kaldt og
udført når du forsøger at lukke programmet) :

/////// code-snip
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin

if Messagebox(self.Handle,'Save Changes','?',MB_YESNO) = IDYES
then Gem(); // din funktion som viser Gem-dialog

canclose := true; // tillader at lukke programmet ned
end;
//////////////////////// code-snip end

I menuens Onlick event skal du bare skrive Close(); da CloseQuiery kaldes
altid før din applikation lukkes.