Ver Mensaje Individual
  #3  
Antiguo 11-06-2015
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Reputación: 19
olbeup Va camino a la fama
Cita:
Empezado por albelg Ver Mensaje
hola amigos del foro me gustaria conocer si existe alguna forma de hacer parpadear el CAPTION de un boton. gracias de antemano
Hola albelg,

Puedes hacerlo de varias formas, la primera y la mas rápida es poner un TTimer y cada "x Seg" que muestre el caption y después lo quite.
También puede crear un componente que herede del TButton y añades algunos componentes, pero este último creo que es más complicado.

eje.

Pon un componente TTimer1 en el formulario que esta en la paleta de system y es un reloj
Código Delphi [-]
procedure TForm1.Timer1(Sender: TObject);
begin
  with Button1 do
    if (Length(Caption) > 0) then
      Caption := ''
    else
      Caption := 'Aceptar';
end;
y para desartivarlo al pulsar el botón solo tienes que poner Timer1.Enabled := False
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled := False;
  Button1.Caption := 'Aceptar'; // <-- Esto se pone porque lo puedes pillar cuando ha quitado el caption.
end;
Un saludo.

upsss, se me ha adelantado ecfisa
__________________
Al hacer una consulta SQL, haz que los demás te entiendan y disfruten de ella, será tú reflejo de tú saber.
Responder Con Cita