tem como colorir o texto de um showmessage

Delphi

26/03/2011

alguém sabe ai um cheio de mandar o texto de uma outra cor
**tem como colorir o texto de um showmessage**

tipo showmessage(color:= red, 'Ola vermelho'); SÓ FOI UMA BLEFADA (BLEFF) MAS TEM COMO COLORIR O TEXTO???
Ewerton Rodrigues

Ewerton Rodrigues

Curtidas 0

Respostas

Ewerton Rodrigues

Ewerton Rodrigues

26/03/2011

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
GOSTEI 0
Union Tecnologia

Union Tecnologia

26/03/2011

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);
GOSTEI 0
POSTAR