Cześć
Zwracam się z prośbą o kod źródłowy, przez który można uzyskać po zminimalizowaniu formy płynący tekst na pasku zadań. Chodzi mi o tekst nie nazwy filename exe-ca, lecz to co jest wpisane np w Label.Caption lub TForm1.Caption. Nie używając przy tym komponentu Scrolling Caption (scrlcaption.zip) ze strony http://www.utilmind.com/
Z góry wielkie dzięki ;) .
Znalazłem.
Przykład pochodzi ze strony http://www.swissdelphicenter.ch/torry/showcode.php?id=228
var
a: string;
procedure TForm1.FormCreate(Sender: TObject);
begin
a := 'Look at here !...';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Integer;
begin
Application.Title := a;
Form1.Caption := a;
for i := 1 to (Length(a) - 1) do
a[i] := Application.Title[i + 1];
a[Length(a)] := Application.Title[1];
end;