Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 17-05-2013
Avatar de Cristhor1982
Cristhor1982 Cristhor1982 is offline
Miembro
NULL
 
Registrado: dic 2012
Posts: 60
Poder: 12
Cristhor1982 Va por buen camino
Movimiento de texto dentro de un TEdit

Amigos

Me gustara simular el movimiento de un texto dentro de un TEdit, es para dar informacion y se destaque con el movimiento

algo asi


Código:
que se deberia mover.. Este es el texto…

Estoy probando con un timer y el tedit y obviamente sus propiedades...una ayuda please

Saludos
Responder Con Cita
  #2  
Antiguo 17-05-2013
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

No diré que sea perfecto, pero, igual puede darte alguna idea:

Código Delphi [-]
unit Project.SampleForm;

interface

uses
  Vcl.Forms, Vcl.ExtCtrls, System.Classes,
  Vcl.Controls, Vcl.StdCtrls;

type
  TSampleForm = class(TForm)
    TypeEdit: TEdit;
    TypeEditTimer: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure TypeEditTimerTimer(Sender: TObject);
  private
    FCurrentCharNum : integer;
    FSavedTypeEditText : string;
  end;

var
  SampleForm: TSampleForm;

implementation

{$R *.dfm}

procedure TSampleForm.FormCreate(Sender: TObject);
begin
  FCurrentCharNum := 0;
  TypeEditTimer.Interval := 50;
  TypeEditTimer.Enabled := true;
  FSavedTypeEditText := TypeEdit.Text;
end;

procedure TSampleForm.TypeEditTimerTimer(Sender: TObject);
begin
  if TypeEdit.Text = FSavedTypeEditText then
    FCurrentCharNum := 0
  else
    Inc( FCurrentCharNum );

  TypeEdit.Text := Copy( FSavedTypeEditText, 1, FCurrentCharNum );
  TypeEdit.SelStart := Length( TypeEdit.Text );
end;

end.
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #3  
Antiguo 17-05-2013
Avatar de Cristhor1982
Cristhor1982 Cristhor1982 is offline
Miembro
NULL
 
Registrado: dic 2012
Posts: 60
Poder: 12
Cristhor1982 Va por buen camino
No puedo hacer que funcione tu codigo...
Responder Con Cita
  #4  
Antiguo 17-05-2013
Avatar de Cristhor1982
Cristhor1982 Cristhor1982 is offline
Miembro
NULL
 
Registrado: dic 2012
Posts: 60
Poder: 12
Cristhor1982 Va por buen camino
Te cuento, lo que quiero hacer es....Mostrar la fecha en movimiento hasta ahora se me ocurrió algo muy basico

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
datetime:Tdatetime;
begin
  Edit2.Text := DateTimeToStr(now);
  Edit2.left := 140;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Edit2.Left:=Edit2.Left -1;
    If Edit2.Left = 8 then
      Edit2.Left := 140;
end;

Tengo dos edit, uno es solo pantalla y el otro no tiene bordes y esta en autosize, y juego con su Left, es lo que se me ocurrio, Funciona pero no creo que sea la solucion que corresponde...Saludos

Última edición por Cristhor1982 fecha: 17-05-2013 a las 20:16:48.
Responder Con Cita
  #5  
Antiguo 17-05-2013
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.119
Poder: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

Siento no poder ayudarte. Lo cierto es que sólo se me ocurre usar algún "Timer" y los correspondientes cálculos y eso, pero, uno puede imaginar que hay formas más curiosas y elegantes de "animar controles" o lograr "efectos" del tipo que te interesa. Lo que el código que he mostrado logra es, poco más o menos, lo que puede verse en la siguiente imagen:



De todas formas, te adjunto el ejemplo "completo" para que puedas echarle un vistazo.
Archivos Adjuntos
Tipo de Archivo: zip sample.zip (1,1 KB, 15 visitas)
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita
  #6  
Antiguo 17-05-2013
Avatar de Cristhor1982
Cristhor1982 Cristhor1982 is offline
Miembro
NULL
 
Registrado: dic 2012
Posts: 60
Poder: 12
Cristhor1982 Va por buen camino
Muchas Gracias por tu ayuda, voy a tratar de hacer algo mas "Animado"....si lo logro lo pondre aca saludos. Nuevamente muchas gracias
Cita:
Empezado por dec Ver Mensaje
Hola,

Siento no poder ayudarte. Lo cierto es que sólo se me ocurre usar algún "Timer" y los correspondientes cálculos y eso, pero, uno puede imaginar que hay formas más curiosas y elegantes de "animar controles" o lograr "efectos" del tipo que te interesa. Lo que el código que he mostrado logra es, poco más o menos, lo que puede verse en la siguiente imagen:



De todas formas, te adjunto el ejemplo "completo" para que puedas echarle un vistazo.
Responder Con Cita
Respuesta



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
Pintar una imagen como icono dentro de un TEdit MaMu Gráficos 2 07-08-2008 04:07:23
Alinear Texto en un TEdit luxus Varios 1 19-07-2006 19:59:55
Pasar el valor de un TEdit dentro de un StringGrid a otro TEdit que está fuera atirado Varios 4 11-09-2004 20:13:48
Alienacion de texto en TEdit PTW Varios 2 19-05-2004 17:18:09
Alinear texto de Tedit cisterpe OOP 2 11-09-2003 14:00:36


La franja horaria es GMT +2. Ahora son las 01:47:01.


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