Bueno, tan difícil no es; Zarko Gajic escribió
un artículo sobre la modificación de diálogos. A partir de ese artículo es fácil extraer cómo modificar el diálogo.
Pon un formulario con un botón y añádele este texto:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
AMsgDialog: TForm;
lblMessage:TLabel;
begin
AMsgDialog := CreateMessageDialog('This is a test message. ', mtWarning, [mbYes, mbNo]) ;
try
AMsgDialog.Caption := 'Dialog Title' ;
lblMessage := TLabel(AMsgDialog.FindComponent('Message'));
lblMessage.Font.Style := lblMessage.Font.Style + [fsBold];
lblMessage.Anchors := lblMessage.Anchors + [akRight];
if (AMsgDialog.ShowModal = ID_YES) then begin
end
else begin
end;
finally
AMsgDialog.Free;
end;
end;
Es fácil de entender y modificar.