TJvScrollText - Scrollt nur bei Mausbewegung

[xZise]

Delphi-Quellcode:

procedure TfrmInfo.FormCreate(Sender: TObject);
begin
  stInfo := TJvScrollText.Create(self);
  stInfo.Parent := self;
  stInfo.Left := 8;
  stInfo.Top := 8;
  stInfo.Width := 185;
  stInfo.Height := 162;
  stInfo.Items.Text := 'Bisschen Text';
  stInfo.Alignment := taCenter;
  stInfo.Delay := 50;
end;

procedure TfrmInfo.FormDestroy(Sender: TObject);
begin
  FreeAndNil(stInfo);
end;

procedure TfrmInfo.FormHide(Sender: TObject);
begin
  stInfo.Active := false;
end;

procedure TfrmInfo.FormShow(Sender: TObject);
begin
  stInfo.Active := true;
end;