Ir al contenido



Foto

manejo de un tmemo


  • Por favor identifícate para responder
4 respuestas en este tema

#1 fmvecua

fmvecua

    Member

  • Miembros
  • PipPip
  • 11 mensajes

Escrito 13 julio 2017 - 07:15

Buenas noches, son tan amables me podrían ayudar tengo

un tmemo así

 

En respuesta a su solicitud no. XXXXX de fecha XXXXX 

 

Podría de alguna forma solo modificar lo que esta en XXXXX y que no me deje modificar nada más dentro del memo 

 

Agradezco la ayuda prestada


  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.254 mensajes
  • LocationRepública Dominicana

Escrito 14 julio 2017 - 06:47

Hola, pero esa línea lo agregas desde otro componente ó en el mismo TMemo?, porque no es posible colocar en modo lectura una parte de la línea y el otro no.


  • 0

#3 fmvecua

fmvecua

    Member

  • Miembros
  • PipPip
  • 11 mensajes

Escrito 14 julio 2017 - 07:19

Desde otro componente.


  • 0

#4 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.254 mensajes
  • LocationRepública Dominicana

Escrito 14 julio 2017 - 08:45

Tan simple como esto:


delphi
  1. //Si es de varios TEdits
  2. var Solicitud, Fecha: String;
  3. ...
  4.  
  5. Solicitud := Edit1.Text;
  6. Fecha := Edit2.Text;
  7.  
  8. Memo1.lines.Add('En respuesta a su solicitud no. ' + Solicitud + ' de fecha ' + Fecha);
  9.  
  10. ...
  11.  
  12. //Si es desde una BD
  13. Memo1.Lines.Add('En respuesta a su solicitud no. ' + Table1.FieldByName('solicitud').AsString + ' de fecha ' + Table1.FieldByName('fecha').AsString);

El Memo le activas la propiedad Enabled a False ó la Propiedad ReadOnly en True, ambos son válidos.

 

Saludos.


  • 0

#5 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 13.677 mensajes
  • LocationMéxico

Escrito 14 julio 2017 - 09:01

Desde otro componente.

 

Hola

 

Puedes insertar uno o mas TEdit dentro del Memo, y lo colocas en la posición deseada para escribir como se muestra en la imagen adjunta, el Código es muy simple.


delphi
  1. procedure TForm2.Button1Click(Sender: TObject);
  2. var
  3. Edt: TEdit;
  4. begin
  5. Edt := TEdit.Create(Memo1);
  6. Edt.Name := 'Edit1';
  7. Edt.Text := 'Aqui puedes escribir';
  8. Edt.Top := 10;
  9. Edt.Left := 20;
  10. Edt.Parent := Memo1;
  11. end;

Saludos

 

Edito:  ^o| Ahora que lo leo de nuevo, me parece que no es lo que necesitas. 

Archivos adjuntos


  • 0