MessageBox und "Nicht mehr anzeigen"

[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.