Ideen für einen kleinen Scherz

[Noedel]

hilfe sagt das hier:

Zitat:

MessageDlg function

bla bla bla
TMsgDlgBtn Value Corresponding return value

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

Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

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

end;

Wenn du jetzt nicht gerade doch den Treiber neu installieren willst