hacer parpadear el caption de un botón

[olbeup]

Empezado por albelg

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