Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 03-01-2009
Avatar de saldanaluis
saldanaluis saldanaluis is offline
Miembro
 
Registrado: nov 2006
Ubicación: Monterrey NL México
Posts: 122
Poder: 18
saldanaluis Va por buen camino
Question Mostrar primera linea de un campo Tmemo

Compañeros del club.
Estoy llenando un campo Tmemo con datos de una base de datos, y el campo contiene un scroll bar vertical. Uso Delphi 7.
El asunto es que cada vez que se llena el campo TMemo, se queda mostrando la última linea que se llenó, y para ver la primera tengo que usar el scroll bar para verla. Lo que necesito es que siempre que se llene el campo TMemo, se muestra la primera linea de texto, y no la última.
Estoy tratando de hacer lo siguiente pero no me funciona.
Código Delphi [-]
 
Memo1.Clear;
while not QRYLOGS.Eof do
  begin
  Memo1.Lines.Append(QRYLOGS['Mensaje']);
  Memo1.Lines.Append('---o---');
  QRYLOGS.Next
  end;
Memo1.Lines[0];
Memo1.SelStart := 0;
Memo1.SetFocus;
NumFolio.SetFocus;
El último setfocus lo utilizo para dejar el campo que necesito que se teclee activado, y que no quede activado el campo Memo.
Gracias de antemano por su amable ayuda.
Saludos y un excelente año 2009.
Responder Con Cita
  #2  
Antiguo 03-01-2009
Avatar de TOPX
TOPX TOPX is offline
Miembro
 
Registrado: may 2008
Ubicación: Bogotá
Posts: 527
Poder: 16
TOPX Va camino a la fama
Compañero,
  • Para seleccionar la primera línea del Memo, también con SelLength
  • Siempre aconsejo usar "AsInteger, AsString, etc." para acceder a campos de un DataSet
Código Delphi [-]
Memo1.Clear;
while not QRYLOGS.Eof do
  begin
    Memo1.Lines.Add(QRYLOGS.FieldByName('Mensaje').AsString);
    Memo1.Lines.Add('---o---');
    QRYLOGS.Next;
  end;
Memo1.SelStart := 0;
Memo1.SelLength := 0;
__________________
"constructive mind, destructive thoughts"
Responder Con Cita
  #3  
Antiguo 05-01-2009
Avatar de saldanaluis
saldanaluis saldanaluis is offline
Miembro
 
Registrado: nov 2006
Ubicación: Monterrey NL México
Posts: 122
Poder: 18
saldanaluis Va por buen camino
Compañero TOPX.

Muchas gracias por la respuesta... el SelLength era lo que nenecistaba... ya funciona tal como lo necesito.

Muchos saludos, y espero poder corresponder algún día...
Responder Con Cita
  #4  
Antiguo 07-12-2010
Avatar de saldanaluis
saldanaluis saldanaluis is offline
Miembro
 
Registrado: nov 2006
Ubicación: Monterrey NL México
Posts: 122
Poder: 18
saldanaluis Va por buen camino
Compañero TOPX,

Disculpa que continue esto despues de tanto tiempo. pero me surgió la duda del por que utilizar AsString, AsInteger, etc. ¿Que ventajas se tiene con esto?
Normalmente no lo uso así, pero no quisiera que en ocasiones mi codigo funcione erroneamente por no usar lo que tu aconsejas.

Gracias.
Responder Con Cita
  #5  
Antiguo 29-12-2010
angelp4492 angelp4492 is offline
Miembro
 
Registrado: dic 2007
Posts: 99
Poder: 0
angelp4492 cantidad desconocida en este momento
Gracias a mi tb me sirvió
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Tener salto de linea en TRichEdit o TMemo manolop Varios 7 13-11-2008 16:33:35
escribir en la primera linea de un archivo de texto Gaim2205 Varios 3 22-09-2008 16:52:36
obtener numero de linea de un Tmemo gaz-g7 Varios 2 28-06-2007 00:10:03
Grabar en primera linea en TMemo brakaman Varios 3 06-06-2007 23:46:08
Tmemo Index(saber en que linea estoy) Descendents OOP 2 12-12-2003 20:51:48


La franja horaria es GMT +2. Ahora son las 20:22:24.


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
Copyright 1996-2007 Club Delphi