Loop

Delphi

07/10/2006

Boa tarde galera!!!! to com uma duvida ,,

precisava fazer um loop pra verificar num edit
vamos supor q o cara digite ´cor vermelha´

ele deixe a cor sem fazer nda e mude a palavra vermelha pra negrito ...

aguem poderia me ajudar nessa?


Output

Output

Curtidas 0

Respostas

Marcelo_mileris

Marcelo_mileris

07/10/2006

Bem... a grosso modo vc pode tentar assim...

Coloque um Timer e mude o Interval para 100

No evento OnTimer coloque o código:

  if (edit1.Text = ´vermelho´) then
  begin
    edit1.Font.Color := clRed;
    edit1.Font.Style := [fsbold];
  end else
  begin
    edit1.Font.Style := [];
    edit1.Font.Color := clBlack;
  end;


Não sei se é isso que precisa


GOSTEI 0
Output

Output

07/10/2006

kra,, issu realmente funciona,, mais naum eh bem assim q eu qria,,
nesse seu exemplo ele so muda pra negrito c o conteudo do edit for apenas ´vermelho´

mais no meu caso vamos dizer q o cara digita no mesmo edit ´cor vermelha´
nesse caso ele ia deixar a palavra ´cor´ sem mexer mais ia mudar a palavra ´vermelha´ pra negrito ...

entendeu...
teria alguma dika????


GOSTEI 0
Marcelo_mileris

Marcelo_mileris

07/10/2006

Olha, com um edit eu não sei se vc pode mudar somente uma palavra de cor.
Sei que tem como fazer com um [b:7e49d0c2cf]Richedit[/b:7e49d0c2cf] através do [b:7e49d0c2cf]SelAttributes[/b:7e49d0c2cf]


Dá uma pesquisada pois sobre isso eu não sei muita coisa...

Marcelo


GOSTEI 0
Output

Output

07/10/2006

ok [b:0734014932]marcelo_mileris[/b:0734014932] ,,,, mto obrigado kra


GOSTEI 0
POSTAR