:( Texto Diferente Color.....? ....

[lostprophets]

espero q me entiendad lo q pasa es q yo tengo un tmemo y quiero que sobresalten algunas palabras de el


ejemplo este es mi tmemo:

Ejemplo1
Ejemplo2
Ejemplo3
Ejemplo4

como veran salen palabras de diferentes colores: "Sobresaltadas" y quisiera hacer algo asi pero no se como mi sale todo de un solo color con este codigo delphi:

Código Delphi [-]
Procedure Mainform.Timer1.Timer;
var a: string;
begin
a:='hola';
if memo1.text=a then
memo1.font.color:=12344567;
end;
end;

ayuda plzz

[[ArdiIIa]]

Utiliza un TRichEdit y podrás controlar el cambio de color...

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

begin
  with RichEdit1.SelAttributes do
  begin
    Color := clRed;
    Height := Height + 5;
  end;
  RichEdit1.Lines.Add('This line of text will be red.');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.DefAttributes.Color := clBlue;
  RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;

[lostprophets]

pero no me funciona para diferentes textos yo quiero ponerle un color diferente a cada texto

[[ArdiIIa]]

Te comento que con el TMemo no podrás hacer eso que quieres, por eso te recomiento la utilización de un TRichEdit que básicamente es lo mismo pero al admitir texto RTF podrás jugar con los cambios de color.