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
AMsgDialog := CreateMessageDialog(msg, DlgType,buttons) ;
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