Memo, RichEdit?!

Delphi

04/01/2006

Olá Galera... postei faz um tempo, mas não obtive resposta ainda...

Estou com um problema.. (pra variar...) preciso que quando ao clicar em uma linha de um RichEdit, ou Memo, a linha inteira seja selecionada...

existe alguma forma disso acontecer?!

fiz uma busca neste e em outros Fóruns, e acabei não achando nada...

alguém poderia me ajudar nessa?!

Obrigado pela atenção.

Dhiogo Silva


Dhiogosilva

Dhiogosilva

Curtidas 0

Respostas

Caninha51

Caninha51

04/01/2006

dhigo, fiz uma gambiarra aki e funcionou.
Olha se eh isso q vc quer!:D

No Onclick do memo...
var
  Linha: Integer;
begin
  with Memo1 do
    begin
      Linha:= Perform(EM_LINEFROMCHAR,SelStart, 0);
      SelStart := Perform(EM_LINEINDEX, Linha, 0);
      SelLength := Length(Lines[Linha]);
    end;
end;



GOSTEI 0
Dhiogosilva

Dhiogosilva

04/01/2006

poxa caninha... vlw... não estou com o meu sistema aqui comigo, mas soh pra deixar a coisa mais clara e eu não precisar ficar postando novamente aqui...

o que o ´Perform´ significa?!
e o que o ´EM_LINEFROMCHAR´ significa?!

acho que o resto eu peguei legal...

e vlw mais uma vez... :-D

[]s


GOSTEI 0
Caninha51

Caninha51

04/01/2006

O comando Perform envia a mensagem EM_LINEFROMCHAR ao memo.

A mensagem EM_LINEFROMCHAR eh para retornar o índice da linha.


GOSTEI 0
Dhiogosilva

Dhiogosilva

04/01/2006

ah... saquei... vlw Caninha... vou tentar em casa a noite e te dou um retorno se funcionou...

vlw ...

[]s


GOSTEI 0
Nildo

Nildo

04/01/2006

O comando Perform envia a mensagem EM_LINEFROMCHAR ao memo. A mensagem EM_LINEFROMCHAR eh para retornar o índice da linha.


RichEdit1.CaretPos.Y tb retorna a linha :D


GOSTEI 0
Dhiogosilva

Dhiogosilva

04/01/2006

Caninha, testei e funcionou legal...

MUITO obrigado pela força...

[]s


GOSTEI 0
POSTAR