TRxRichEdit. Ultima linea sin dejar el foco en él.
procedure TForm1.GoXYMemo(Memo:TRxRichEdit;Linea,Columna:integer);
begin with Memo do begin SelStart:=0; SelLength:=0; SelStart := Columna+Memo.Perform(EM_LINEINDEX, Linea, 0); SelLength:=0; SetFocus; end;Mi problema es que quiero posicionarme en una determinada linea del TRxRichEdit sin que luego me deje el foco en el objeto. Si elimino la linea SetFocus; no me sirve porque no me posiciona donde yo quiero. Y tampoco me sirve hacer un focus donde yo deseo tras llamar la función, ya que en ese TRxRichEdit escribirán mas usuarios. La idea del TRxRichEdit es una ventana del chat. Se os ocurre algo ? |
solucion
procedure TForm1.Button1Click(Sender: TObject);
begin RxRichEdit1.HideSelection:=false; RxRichEdit1.lines.add(edit1.text); end; |
La franja horaria es GMT +2. Ahora son las 10:42:21. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi