hacer parpadear el caption de un botón

[albelg]

hola amigos del foro me gustaria conocer si existe alguna forma de hacer parpadear el CAPTION de un boton. gracias de antemano

[ecfisa]

Hola abelg.

Depende de que clase de botón... Con un TButton no es posible, pero no hay problema usando un TBitBtn.

Ejemplo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Interval := 100; // velocidad a gusto
  Timer1.Enabled  := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with BitBtn1.Font do
    if Color = clBlack then
      Color := clBtnFace
    else
      Color := clBlack;
end;

Saludos

[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

[ecfisa]

Está muy bién tu sugerencia olbeup , la opción de hacer invisible/visible el texto puede dar, si no igual, un efecto similar a lo que comúnmente se entiende por parpadeo.


Saludos

[olbeup]

Empezado por ecfisa

Está muy bién tu sugerencia olbeup , la opción de hacer invisible/visible el texto puede dar, si no igual, un efecto similar a lo que comúnmente se entiende por parpadeo.


Saludos

Gracias, un saludo

[albelg]

muchas gracias colegas y por esta rapidez en las respuestas es que me siento orgulloso de pertenecer a este foro