Buscar

Localizar e grifar palavra no richedit

Código

Procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
 i:= pos( edit1.text,RichEdit1.Text)-1;
 RichEdit1.SelStart := i;
 RichEdit1.SelLength := length(edit1.text);
 RichEdit1.SelAttributes.Color := ClRed;
 RichEdit1.SelAttributes.Style := [fsBold];

end;

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%

Detalhes da dica

Categoria: Object pascal
Adicionada dia: 26/04/07
Por: Osvaldo
Visualizada: 6052 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009