custom MessageDlg

[[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;