unit UMessageBox;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TDialogTyp = (dtNormal, dtFrage, dtFehler, dtWarnung);

function LibMessageBox(const AOwner : TComponent; const ACaption, AText : string; AButtons : TMsgDlgButtons; ADialogTyp : TDialogTyp) : Integer; overload;
function LibMessageBox(const AOwner : TComponent; const ACaption, AText : string; AButtons : TMsgDlgButtons; ADialogTyp : TDialogTyp; OnHilfeClick : TNotifyEvent) : Integer; overload;

implementation

function LibMessageBox(const AOwner : TComponent; const ACaption, AText : string; AButtons : TMsgDlgButtons; ADialogTyp : TDialogTyp) : Integer; overload;
begin
  Result := LibMessageBox(AOwner, ACaption, AText, AButtons, ADialogTyp, nil);
end;

function LibMessageBox(const AOwner : TComponent; const ACaption, AText : string; AButtons : TMsgDlgButtons; ADialogTyp : TDialogTyp; OnHilfeClick : TNotifyEvent) : Integer; overload;
begin
  Result := mrYes; // nur Beispiel
end;

end.