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