Ja og Nej dialog

Du kan bruge følgende kode:

if MessageDlg( 'Er du sikker?' , mtConfirmation , [ mbYes , mbNo ] , 0 ) = mrYes then
begin
  //ja
end
else
begin
  //nej
end;

Funktionen MessageDlg kan også bruges til at lave andre slags dialogbokse.

MvH

Stefan Svensson
http://fusket.frac.dk

Istedet for at bruge en masse if.. then.. else.. så kan du bruge det der hedder en "case".
Ex:

Var
  I: Integer;
Begin
  I:= MessageDLG('Filen er ændret, vil du gemme?', mtconfirmation, [mbyes, mbno], 0);
  Case I of
    6: showmessage('YES!'); //viser beskeden YES når brugeren trykker ja/yes.
    7: showmessage('NO!'); //viser beskenden NO! når brugeren trykker nej/no.
  End;
End;

Hvis du vil lave mere end 1 ting når brugeren har trykker ja/nej, skal du enten køre en procedure med alt din kode
ex:

   6: Altminkode;

eller bruger begin..end;
ex:

  6: begin showmessage('YES!'); showmessage('NOGET!'); End;

Håber du kan bruge det

Med venlig hilsen
Ken Christensen