Fórum tem como colorir o texto de um showmessage #398101

maior doideira achei istoo talvez alguém possa me explicar legal achei

MAS não sei uusar aindA

ColorToString

Também se tiver como colocar o texto bold, italic, subli

vlw

segue uma sugestão


chamada da função
---------------------------------------------------------------------------------------------------------------------------------------------------
function flMessage(flmessage: String; flType: TMsgDlgType; flbutton: TMsgDlgButtons; flColor: TColor; flBold, flItalic: boolean): String;


Corpo da função
---------------------------------------------------------------------------------------------------------------------------------------------------
function TForm1.flMessage(flmessage: String; flType: TMsgDlgType; flbutton: TMsgDlgButtons; flColor: TColor; flBold, flItalic: boolean): String;
begin
  with CreateMessageDialog(flmessage , flType ,flbutton) do
  begin
     try
        TLabel(FindComponent('Message')).Font.Color := flColor;

        if flBold then
           TLabel(FindComponent('Message')).Font.Style := [fsBold];
        if flItalic then
           TLabel(FindComponent('Message')).Font.Style := [fsItalic];

        ShowModal;
     finally
        Free;
    end;
  end;
end;



exemplo de uso
---------------------------------------------------------------------------------------------------------------------------------------------------
flMessage('Sua mensagem aqui !', mtError, [mbOK, mbNo], clblue, false, true);