custom MessageDlg

[[coso]]

Pequeña modificacion para colocar un message dialog configurable, usando CreateMessageDlg.

Código Delphi [-]
unit custommessagedlg;

interface

uses forms, dialogs, graphics, stdctrls, controls;

function cMessageDLG(msg : string;DlgType : TMsgDlgType;buttons : TMsgDlgButtons;style : TFontStyles ): Tmodalresult;

implementation

function cMessageDLG(msg : string;DlgType : TMsgDlgType;buttons : TMsgDlgButtons;style : TFontStyles ): Tmodalresult;
var
        AMsgDialog: TForm;
        lblMessage:TLabel;
begin
        // Cear el diálogo
        AMsgDialog := CreateMessageDialog(msg, DlgType,buttons) ;

        // Acceder al label
        lblMessage := TLabel(AMsgDialog.FindComponent('Message'));
        lblMessage.Font.Style := style;
        lblMessage.Anchors := lblMessage.Anchors + [akRight];

        cMessageDlg := AMsgDialog.showmodal;
        AMsgDialog.Free
end;

end.

mas info:

http://www.clubdelphi.com/foros/showthread.php?t=57865&goto=newpost
http://delphi.about.com/cs/adptips2001/a/bltip0201_5.htm

[[coso]]

La misma funcion, pero con 2 labels (msg: sin negrita encima, msg2, en negrita debajo)

Código Delphi [-]

function cMessageDLG2(msg : string; msg2: string; DlgType : TMsgDlgType; buttons : TMsgDlgButtons): Tmodalresult;
var
        AMsgDialog: TForm;
        lblMessage:TLabel;
        lblMessage2 : TLabel;
begin
        // Cear el diálogo
        AMsgDialog := CreateMessageDialog(msg2, DlgType,buttons) ;

        // Acceder al label
        lblMessage := TLabel(AMsgDialog.FindComponent('Message'));
        lblMessage2 := TLabel.Create(AMsgDialog);

        lblMessage2.Top := lblMessage.Top;
        lblmessage2.Parent := AMsgDialog;
        lblMessage2.Caption := msg;
        lblMessage2.Left := lblMessage.Left;
        lblMessage2.Visible := true;

        lblMessage.Top := lblMessage.Top + lblMessage2.Height;
        lblMessage.Font.Style := [fsBold];

        lblMessage.Anchors := lblMessage.Anchors + [akRight];
        lblMessage2.Anchors := lblMessage2.Anchors + [akRight];

        cMessageDlg := AMsgDialog.showmodal;

        lblMessage2.Free;
        AMsgDialog.Free;
end;