Urgente (como selecionar uma palavra no rich ????)

Question

caros colegas

estou precisando selecionar uma determinada palavra no richedit,
seria como se eu tivesse dado 2 clicks sobre a palavra .

eu sei a posi��o em que ela se encontra na linha , s� falta selecionar para eu poder substituir por outra palavra !

obrigado pela ajuda

souza ,

Oberdan · Answer

Eu tenho uma fun��o aqui e nunca testei. Veja se d� certo:

Extarir palavra que est� sob o cursor
function RECharIndexByPos(RichEdit: TRichEdit; X, Y: Integer): Integer;
{ retorna a posi��o absoluta do caracter para um conjunto de coordenadas do cursor}
var
P: TPoint;
begin
P := Point(X, Y);
Result := SendMessage(RichEdit.Handle, EM_CHARFROMPOS, 0, longint(@P));
end;

function REExtractWordFromPos(RichEdit: TRichEdit; X, Y: Integer): string;
{ X, Y - coordenadas num controle rich edit }
{retorna a palavra sob a posi��o corrente do cursor}
var
BegPos, EndPos: Integer;
begin
BegPos := RECharIndexByPos(RichEdit, X, Y);
if (BegPos < 0) or
(SendMessage(RichEdit.Handle,EM_FINDWORDBREAK,WB_CLASSIFY,BegPos) and
(WBF_BREAKLINE or WBF_ISWHITE) <> 0 ) then
begin
result:=��;
exit;
end;
if SendMessage(RichEdit.Handle, EM_FINDWORDBREAK, WB_CLASSIFY, BegPos- 1) and
(WBF_BREAKLINE or WBF_ISWHITE) = 0 then
BegPos := SendMessage(RichEdit.Handle, EM_FINDWORDBREAK,
WB_MOVEWORDLEFT, BegPos);
EndPos := SendMessage(RichEdit.Handle, EM_FINDWORDBREAK,
WB_MOVEWORDRIGHT, BegPos);
Result := TrimRight(REGetTextRange(RichEdit, BegPos, EndPos - BegPos));
end;

[]
Oberdan :!:

F�rum Urgente (como selecionar uma palavra no rich ????) #169297