FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Insertar al final de RichEdit
Quiero insertar al final del RichEdit un caracter.
He visto en uno de los hilos lo siguiente, pero no me sirve ya que el RichEdit1 mio tiene tambien imágenes incrustadas. Si consigo la solución os la pongo. Si alguien me puede ayudar se lo agradecería. var a : String; begin a := RichEdit1.Text; Insert('lolo',a,RichEdit1.SelStart+1); RichEdit1.Text := a; end; |
#2
|
||||
|
||||
Hola,
Supongo que esto no te valdrá:
O tal vez puedas probar con algo así:
Última edición por dec fecha: 25-05-2005 a las 21:06:46. Razón: (ampliación del texto) |
#3
|
|||
|
|||
tampoco me sirve
Tampoco me sirve, mi idea es :
Añadir al final de un RxRichEdit la siguiente linea : prueba [imagen] hola Hasta el momento solo lo he conseguido con líneas separadas. procedure TForm1.Button2Click(Sender: TObject); begin RxRichEdit1.Lines.add('prueba'); Clipboard.Assign(Image3.Picture); RxRichEdit1.PasteFromClipboard; RxRichEdit1.Lines.add('hola'); end; |
#4
|
|||
|
|||
Casi lo tengo
En un RxRichEdit1 tengo el texto--> hola saludos
Ya consigo reemplazarlo todas las por imagenes. Ahora quisiera saber como puedo copiar este RxRichEdit1 al final de otro RxRichEdit1 que ya contiene líneas (chat). Podría hacer que buscará (Findtext) cada vez en el RxRichEdit de destino y reemplazará pero supongo que conforme fueran creciendo las lineas del chat se haría intratable. Por eso solo quiero tratar la última línea introducida en el RxRichEdit. procedure TForm1.Button2Click(Sender: TObject); var n : integer; begin // Busca el Texto n :=RxRichEdit1.FindText('',0,Length(RxRichEdit1.Text),[]); // [stMatchCase]); // Encontrado? while n>-1 do begin showmessage(intTostr(n)); // Marcar el texto RxRichEdit1.SelStart := n; RxRichEdit1.SelLength := Length(''); // Sustituirlo... Clipboard.Assign(Image3.Picture); RxRichEdit1.PasteFromClipboard; n :=RxRichEdit1.FindText('',0,Length(RxRichEdit1.Text),[]); // [stMatchCase]); end; end; |
#5
|
|||
|
|||
Solucion
procedure TForm1.Button2Click(Sender: TObject);
var n : integer; start:integer; begin // Busca el Texto start:=Length(RxRichEdit1.Text); RxRichEdit1.Lines.add('hola soy yo '); n :=RxRichEdit1.FindText('',start,Length(RxRichEdit1.Text),[]); // [stMatchCase]); // Encontrado? while n>-1 do begin showmessage(intTostr(n)); // Marcar el texto RxRichEdit1.SelStart := n; RxRichEdit1.SelLength := Length(''); // Sustituirlo... Clipboard.Assign(Image3.Picture); RxRichEdit1.PasteFromClipboard; n :=RxRichEdit1.FindText('',start,Length(RxRichEdit1.Text),[]); // [stMatchCase]); end; end; |
|
|
|