FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como usar el componente lblmarquee ?
Hola perdon creo que mi consulta era para acá , la repeti en api de windows pido disculpas es que hace mucho que no uso el foro y espero no se enojen por mi estupidez , mi consulta es la siguiente ... amigos me gustaria saber cuando se llega al final del comentario en el componente lblmarquee que esta en rad studio para poder repetir un sonido cada vez que se repita el mensaje , tengo este codigo y e probado con eof pero nada !
Código Delphi [-]unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons; type TForm1 = class(TForm) Timer1: TTimer; btnStartStop: TButton; BitBtn1: TBitBtn; lblMarquee: TLabel; edText: TEdit; Label2: TLabel; UpDown1: TUpDown; edSpeed: TEdit; Label1: TLabel; rgDirection: TRadioGroup; procedure BitBtn1Click(Sender: TObject); procedure edTextChange(Sender: TObject); procedure btnStartStopClick(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure UpDown1Changing(Sender: TObject; var AllowChange: Boolean); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.BitBtn1Click(Sender: TObject); begin Close; end; procedure TForm1.edTextChange(Sender: TObject); begin lblMarquee.Caption := edText.Text; end; procedure TForm1.btnStartStopClick(Sender: TObject); begin Timer1.Enabled := not Timer1.Enabled; end; procedure TForm1.Timer1Timer(Sender: TObject); var txt : string; begin txt:= lblMarquee.Caption; if rgDirection.ItemIndex = 0 then //left lblMarquee.Caption:= Copy(txt, 2, length(txt)-1) + Copy(txt,1,1) else //right lblMarquee.Caption:= Copy(txt,length(txt)-1,1) + Copy(txt, 1, length(txt)-1); end; procedure TForm1.UpDown1Changing(Sender: TObject; var AllowChange: Boolean); begin Timer1.Interval := 1000 div UpDown1.Position; end; procedure TForm1.FormCreate(Sender: TObject); begin edTextChange(Self); end; end. la unica diferencia es que uso un memo en vez de un edText gracias de antemano amigos ! |
#2
|
||||
|
||||
Hola gaston.
Primero tengo que apuntar un error en el código y creo que no es de copiado, si no de 'fabrica' por que lo he visto igual en dos o tres lados. La línea: Tendría que poner el último caracter al principio y agregarle el resto -1, pero pone el anteúltimo y le agrega el resto -1. Debería ser:
Ahora con lo del sonido, se me ocurre algo así: (Reduje el código para simplificar, pero es completamente funcional en ambos sentidos)
Saludos. Última edición por ecfisa fecha: 25-08-2010 a las 09:35:13. |
#3
|
|||
|
|||
Gracias anda perfecto ! ! !
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
como usar el componente lblmarquee | gaston260 | API de Windows | 0 | 25-08-2010 02:21:43 |
Como usar el componente Transaction | Tauro78 | Firebird e Interbase | 2 | 01-02-2007 17:50:12 |
Como usar el componente TDatabase | luisreg | Conexión con bases de datos | 2 | 27-11-2003 17:55:57 |
¿como usar un componente? | mrmanuel | OOP | 3 | 12-05-2003 22:12:36 |
|