Back


Blinking Panel Caption:

Place a panel on a form. In the Object Inspector set the bevelInner to 'bvRaised', then set the
BevelOuter to 'bvLowered'. Add this text to the Panel.Caption Starting Browser...
Add a Timer. Double-click on the Timer and add this code:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    if Panel1.Caption =  '' then
     begin
         Panel1.Caption := 'Starting Browser...';
     end
   else
    begin
        Panel1.Caption := '';
   end
end;


Back