TJvScrollText - Scrollt nur bei Mausbewegung

[xZise]

Warum scrollt TJvScrollText nur bei Mausbewegungen? Bzw. Wie kann man das einstellen?

[Die Muhkuh]

Active auf True?

[xZise]

logisch ;)
Und es hatte ja auch mal funktioniert :( Nur jetzt eben nicht mehr ... Ich glaube es liegt daran, dass ich es dynamisch einbinde... Deshalb vermute ich, dass irgendetwas nicht eingesetllt wurde...

[Cyberbob]

Zeig mal ein Wenig code. Alle stellen, die mit der Kompo zu tun haben oder sonst etwas mit ihr gemacht wird!

[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;

[CK_CK]

Ich benutze die Komponente auch öfters...
Beim OnCreate setze ich scroller.Active auf True und mache im OnShow ein scroller.Reset.

Probiere es doch mal so...

Chris

[xZise]

DFs mit dem Reset kannte ich noch nicht :D
Danke ;) Aber es nützt leider nichts :(
Ich habe mir den Code mal angeguckt:
Jetzt weis ich wenigstens, warum er sich bewegt, wenn man die Maus bewegt ...
Liegt das ggf. daran, dass es als dll geladen wird?

[edit]Wenn ich das als Programmcode (.exe) schreibe und die ausführe, funktioniert das wunderbar...[/edit]