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