Ver Mensaje Individual
  #1  
Antiguo 28-05-2010
Avatar de gulder
gulder gulder is offline
Miembro
 
Registrado: abr 2005
Ubicación: colombia-sucre
Posts: 384
Reputación: 20
gulder Va por buen camino
Thumbs up insertar texto ambos lados de selección de un memo

hola foro como andan espero que bien, bueno estoy haciendo algo pero no meda y la cabeza se me esta estallando es lo siguiente, tengo un memo un texto entonces selecciono una parte de ese texto y al presionar un botón debe agregar una palabra al principio y al final de la selección, después de haber agregado estas dos palabras al principio y al final de la selección el texto seleccionado debe seguir seleccionado y el cursor aparecer al final de la selección eso es todo.

Nota: con este codigo inserto la palabra al principio y al final de la seleccion pero no logro seleccionarla otravez y menos ubicar el cursor al final del texto seleccionado espero que me entiendadn

Código Delphi [-]
   var
   log:AnsiString;

   log:=Memo.Lines.Text;
   Insert(tex1, log, Memo.SelStart+1);
   Insert(tex2, log, (Memo.SelStart+Memo.SelLength+Length(tex1)+1));


saludos pues
Responder Con Cita