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.