Ja og nej box

procedure TForm1.Button1Click(Sender: TObject);

begin
  if MessageDlg('Welcome to my Object Pascal application.  Exit now?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
    MessageDlg('Exiting the Object Pascal application.', mtInformation,
      [mbOk], 0);
    Close;
  end;

end;

if MessageDlg('Dit Ja/Nej spørgsmål', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
    Showmessage('Du svarede Ja !')
  else
    Showmessage('Du svarede Nej !')

Snowball

Du kan vælge mellem følgende knapper

mbOK    mrOk
mbCancel    mrCancel
mbYes    mrYes
mbNo    mrNo
mbAbort    mrAbort
mbRetry    mrRetry
mbIgnore    mrIgnore
mbAll    mrAll
mbNoToAll    mrNoToAll
mbYesToAll    mrYesToAll

if MessageBox(Handle,'Vil du lukke?', '?', MB_YESNO) = mrYES then
  ShowMessage('du tykkede ja')
else
  ShowMessage('du tykkede nej')
end;

/ZIRON

hmmm det gik jo pænt stærkt :)

/ZIRON

ZIRON> Hvad sidder du og Tykker på :)

morten >> hmmm den forstod jeg sku ikke helt???

/ZIRON

Ziron> 'du tykkede nej'  trykkede = tykkede

arrrrrrrr jaja det er det når man er lidt træt ik :)

/ZIRON