Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Blinking label caption

202 views
Skip to first unread message

Douglas Rosen

unread,
Sep 28, 2000, 3:00:00 AM9/28/00
to
I would like to alert the user of certain conditions by having a label
become visible, and its caption blinking.
I know there's a blink attribute, but I don't see how to set it in the
Object Inspector.


Mauro Patino

unread,
Sep 28, 2000, 3:00:00 AM9/28/00
to
Douglas Rosen wrote:

I've never seen a 'blink' attribute for a label.

But you can use a timer and do something like this,
{set timer.interval to something like 200}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Visible := not(Label1.Visible);
end;

{toggle on/off with this}
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := not(Timer1.Enabled);
end;


Unknown

unread,
Sep 28, 2000, 3:00:00 AM9/28/00
to
On Thu, 28 Sep 2000 13:12:12 -0400, Douglas Rosen
<dro...@800mcmahan.com> wrote:

>I would like to alert the user of certain conditions by having a label
>become visible, and its caption blinking.

You can do it using TTimer (toggle visible state or font color in
OnTimer event).


>I know there's a blink attribute, but I don't see how to set it in the
>Object Inspector.

Huh? AFAIK TLabel don't have blink attribute.


HTH
ain

Douglas Rosen

unread,
Sep 28, 2000, 3:00:00 AM9/28/00
to

Mauro Patino wrote:

> Douglas Rosen wrote:
>
> > I would like to alert the user of certain conditions by having a label
> > become visible, and its caption blinking.

> > I know there's a blink attribute, but I don't see how to set it in the
> > Object Inspector.
>

> I've never seen a 'blink' attribute for a label.
>

Maybe I'm thinking of the old DOS days when text had a blinking attribute.

>
> But you can use a timer and do something like this,
>
> {set timer.interval to something like 200}
> procedure TForm1.Timer1Timer(Sender: TObject);
> begin
> Label1.Visible := not(Label1.Visible);
> end;
>
> {toggle on/off with this}
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> Timer1.Enabled := not(Timer1.Enabled);
> end;

I actually thought of a timer, but was hoping for something more
straightforward.
Thanks, I'll try that


0 new messages