Всем привет!
Сегодня я вам покажу как создать свою бегущую строку в трейнере на Delphi 7
Вот видео:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Label1.Caption := Copy(self.Label1.Caption, 2, 255) +
self.Label1.Caption[1];
end;
СКАЧАТЬ