Hvorfor gør den det

Du mangler et end; prøv det her:

procedure TForm1.Button1Click(Sender: TObject);
begin
    If messagedlg('Vil du lukke nu???', mtinformation, [mbYes, mbNo],0)= mrYes Then
begin
    Application.Terminate;
end;
end;

Eller du har et begin for meget ;)

procedure TForm1.Button1Click(Sender: TObject);
begin
    If messagedlg('Vil du lukke nu???', mtinformation, [mbYes, mbNo],0)= mrYes Then
      Application.Terminate;
end;

end.

skal det spm ikke lukkes da de har besvarede dit spm og det virker jo :p

I øvrigt bør du sætte koden ind i formens OnCloseQuery hvor den hører hjemme.

Hvorfor bruger du "application.Terminate" når der findes "Close"? Det er der mange der gør og jeg undrer mig hvorfor.

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := messagedlg('Vil du lukke nu???', mtinformation,
                        [mbYes, mbNo],0)= mrYes;
end;

hejhej,

Der er ikke nogen forskel på Alex253´kode og dit forslag.
Der er kun et linieskift til forskel.

erikjacobsen svarede, at der var et BEGIN for meget og
det er rigtigt.

procedure TForm1.Button1Click(Sender: TObject);
begin
  If messagedlg('Vil du lukke nu???', mtinformation, [mbYes, mbNo],0)= mrYes Then begin
    Application.Terminate;
end;

end.  { end.  end med punktu afslutter programkoden i Delphi }




procedure TForm1.Button1Click(Sender: TObject);
begin
  If messagedlg('Vil du lukke nu???', mtinformation, [mbYes, mbNo],0)= mrYes Then
    Application.Terminate;
end;
end.

Ja, det sidste jeg skrev, var noget vrøvl.
Hvad erikjabobsen sagde var rigtigt. Et stk.
for meget BEGIN.

BEGIN før linien:
    Application.Terminate;
skal slettes.

jawani ->

procedure TForm1.Button1Click(Sender: TObject);
begin
    If messagedlg('Vil du lukke nu???', mtinformation, [mbYes, mbNo],0)= mrYes Then
begin
    Application.Terminate;
end;
end; <-- Den her er ny ;)

Der er stadig ikke nogen der har begrundet for mig, hvorfor de benytter application.terminate fremfor close.

... men det kan være lige meget hvis man nu gør som jeg foreslår, benytter formens OnCloseQuery i stedet. Husk at sætte "lukke-knappen" til at returnere mrOK eller lignende.

Hej hcr,

Application.Terminate rydder op i de variabler man har gjort brug af.
Close gør ikke "rengøringsarbejdet".

Den kan jeg ikke købe - må hjem og kigge lidt i VCL'en for at se om ikke application.terminate. Alle forme ryddes op når de lukkes.

Kan simpelthen ikke tro at der findes to lukkevarianter:
1. Luk formen og lad være med at rydde op
2. Luk formen og ryd op

Hvis ikke Delphi konsekvent bruger den sidste er programmeringssproget noget lort og det ville efterlade mig ret desillusioneret!

Fandt i øvrigt dette link der giver en mere sandsynlig beskrivelse af hvad der foregår:

  http://www.cpcug.org/user/clemenzi/technical/Languages/ProgramExit.htm

Vil derfor argumentere for at application.terminate kun bruges i forbindelse med fejlbehandling hvor en fejl kræver at programmet lukkes prompte.

I øvrigt har du ikke svaret på tråden jaweni, kun på mit spørgsmål.

Hej,

er ved at rydde op i gamle
spørgsmål for at give point,
så dem får du.

Er det mig du mener?

Hej hcr,

undskyld, at jeg ikke reagerer før nu;
men det var dig, jeg mente.