1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

var
  TaskDialog: TTaskDialog;
  Button: TTaskDialogBaseButtonItem;
begin
  TaskDialog := TTaskDialog.Create(Self);
  try
    TaskDialog.Title := 'Meldungstitel';
    TaskDialog.Caption := 'Meldungsüberschrift';
    TaskDialog.Text := 'Bist du sicher?';
    TaskDialog.CommonButtons := [];
    TaskDialog.MainIcon := tdiInformation;
    Button := TaskDialog.Buttons.Add;
    Button.Caption := 'Mein Ok-Button';
    Button.ModalResult := mrOk;
    Button := TaskDialog.Buttons.Add;
    Button.Caption := 'Abbrechen';
    Button.ModalResult := mrCancel;
    Button := TaskDialog.Buttons.Add;
    Button.Caption := 'Hilfe';
    Button.ModalResult := MB_HELP;
    if TaskDialog.Execute then
      case TaskDialog.ModalResult of
        mrOk:
          ShowMessage('Ok gedrückt');
        mrCancel:
          ShowMessage('Abbrechen gedrückt');
        MB_HELP:
          ShowMessage('Hilfe anzeigen');
      end;
  finally
    TaskDialog.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure ShowSizedDlg(ACaption, AMsg: string; APos: TPoint; AWidth, AHeight: Integer;
  ADlgType: TMsgDlgType; AButton: TMsgDlgButtons);
var
  temp: TForm;
begin
  temp := CreateMessageDialog(AMsg, ADlgType, AButton);
  try
    temp.Caption := ACaption;
    temp.Left := APos.X;
    temp.Top := APos.Y;
    temp.Width := AWidth;
    temp.Height := AHeight;
    temp.ShowModal;
  finally
    temp.Free;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.HilfezuEmKSortierung1Click(Sender: TObject);
const Breite=700;       //Breite des Fensters
      Hoehe= 600;       //Höhe des Fensters
      top  = 200;       //TopPos am Screen
var   left : integer;   //LeftPos innerhalb des Programms
begin
    left:=(Form1.Width - Breite) div 2;
    ShowSizedDlg('HILFE zu EMK - SORTIERUNG', cEmkText6 {längerer Text}, Point(left, top), Breite, Hoehe,
             mtInformation, [mbOK]);
// MessageDlg(cEmkText6, mtInformation, [mbOK], 0);
end;