Lukke programmet med krydset oppe i hjørnet.

Kig på CloseQuery eventen

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg(\'Are du sikker på du vil afslutte ?\', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    CanClose := False;
end;

Nu er det mit første program så kommer jeg nok lige med et dumt spørgsmål :) hvor ser man den

Hvor skal man skrive det

Klik på formen. Gå over i Object Inspector og klik på events. Dobbeltklik på onCloseQuery

Så indsætter du dette kode i mellem begin og end.

  if MessageDlg(\'Are du sikker på du vil afslutte ?\', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
    CanClose := False;


/SpEeDy

Object inspector\'en har et faneblad der hedder events der har du CloseQuery event\'en

Jeg vil foreslå dig at bruge MessageBox() funtionen i stedet for messageDlg, den er nemlig på samme sprog som din windows ( dk hvis du kører dk win version )

Den kan du bruge på denne måde:

  If Application.MessageBox(\'Er du sikker på du vil afslutte ?\', \'Er du sikker ?\', MB_YESNO) = IDNO then
    CanClose := False;


/SpEeDy

eller den hurtige :

CanClose := ( MessageBox(\'Er du sikker på du vil afslutte ?\', \'Er du sikker ?\', MB_YESNO) = IDNO);

Uden Application da det er API kladet jeg mener

ups :

CanClose := ( MessageBox(\'Er du sikker på du vil afslutte ?\', \'Er du sikker ?\', MB_YESNO) = IDYES);

Og så mangler du lige den første parameter :)

CanClose := ( MessageBox(0, \'Er du sikker på du vil afslutte ?\', \'Er du sikker ?\', MB_YESNO) = IDYES);

/SpEeDy

hehe det er i orden :) thx

SpEeDy >> rigtigt, det er lidt sent.....

hehe jeps :)

/SpEeDy