MessageBox und "Nicht mehr anzeigen"

[Motzi]

Hi,

gibt es eine einfache Möglichkeit die allseits bekannten Dialoge mit der Checkbox "Diese Nachricht nicht mehr anzeigen" zu erzeugen?

Natürlich kann man sich seinen Dialog auch selber zusammenstellen, aber das ist doch irgendwie relativ viel Aufwand, wenn man eigentlich nur eine normale MessageBox braucht (wie mit der API-Funktion MessageBox) und nur gern diese eine kleine Checkbox dazu will.

[sakura]

Eigentlich nicht, da musst Du Dir einfach eine kleine Routine schreiben :-( Oder eine Kompo, die könnte auch helfen ;-) Wäre mal eine Idee.

...:cat:...

[Motzi]

Zitat:

Zitat von sakura

Eigentlich nicht, da musst Du Dir einfach eine kleine Routine schreiben :-(

Hm.. hab ich fast befürchtet! Hab grad das ganze MSDN abgesucht um eine MessageBox zu "customizen" :wink: aber wies ausschaut geht das nur mit den anderen Dialogen...

Zitat:

Oder eine Kompo, die könnte auch helfen ;-) Wäre mal eine Idee.

...:cat:...

Ne.. arbeit nicht unbedingt gern mit Fremdkompos. Wenn dann mach ichs schon allein und von Hand! :wink:

[sakura]

Zitat:

Zitat von Motzi

Ne.. arbeit nicht unbedingt gern mit Fremdkompos. Wenn dann mach ichs schon allein und von Hand! :wink:

Schreibe Dir doch Deine eigene Komponente :-D

...:cat:...

[Motzi]

Zitat:

Zitat von sakura

Zitat:

Zitat von Motzi

Ne.. arbeit nicht unbedingt gern mit Fremdkompos. Wenn dann mach ichs schon allein und von Hand! :wink:

Schreibe Dir doch Deine eigene Komponente :-D

...:cat:...

Darauf wirds wohl eh hinauslaufen... :D :wink:

[APP]

Hallo,
dies habe ich irgendwann/irgendwo im Netz gefunden, weiß leider nicht wer der Autor ist. :)

Du benötigst eine Form, einen Button und eine Checkbox.
Nach dem druck auf Button1 bekommst du einen MessageDlg mit "Häkchchen".

Delphi-Quellcode:

UNIT Unit1;

INTERFACE

USES
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  StdCtrls;

TYPE
  TForm1 = CLASS(TForm)
    Button1: TButton;
    CheckBox1: TCheckBox;
    PROCEDURE Button1Click(Sender: TObject);
  PRIVATE
    { Private-Deklarationen }
  PUBLIC
    { Public-Deklarationen }
  END;

VAR
  Form1                       : TForm1;

IMPLEMENTATION

{$R *.DFM}

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
  AMsgDialog                  : TForm;
  ACheckBox                   : TCheckBox;
BEGIN
  AMsgDialog := CreateMessageDialog('This is a test message.', mtWarning, [mbYes, mbNo]);
  ACheckBox := TCheckBox.Create(AMsgDialog);
  WITH AMsgDialog DO
    TRY
      Caption := 'Dialog Title';
      Height := 169;
      WITH ACheckBox DO
        BEGIN
          Parent := AMsgDialog;
          Caption := 'Don''t show me again.';
          width := 120;
          top := 110;
          Left := 8;
        END;

      CASE ShowModal OF
        ID_YES: ;                                      //your code here after dialog closed
        ID_NO: ;
      END;
      IF ACheckBox.Checked THEN
        BEGIN
      //...
        END;
    FINALLY
      ACheckBox.Free;
      Free;
    END;

END;

END.

Vielleicht kannst Du damit ja was anfangen.