Hallo erstmal,

ich und ein paar Freunde planen einen kleinen Scherz für unseren Infolehrer zum 1. April . Dazu wollte ich fragen wie man windowsähnliche Fehlermeldungen (oder showmasseges) erzeugen kann. Ich stell mir sowas in der Art vor wie: „Maustreiber wurden beschädicht. Zur neuinstalation bitte auf ok klicken.“...und dann halt die Maus festsetzen. Ich hoffe der Man hat so viel Humor wie ich ihm zutraue. Ich bin natürlich für andere Vorschläge oder Verbesserungsvorschläge auch offen. Nach spätestens 3 min wird man die Sache natürlich aufdecken.

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:

zusammenfalten · markieren

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

auch wenn esnur ein harmolses Scherzprogramm werden soll, unterstützen wir dies hier im Forum nicht. aus diesem Grund mache ich den Thread an dieser Stelle zu.