|
#1
|
|||
|
|||
Движение текста
Умы расскажите, как сделать, так чтобы текст(Label) двигался с лево на право а затем обратно? Спасибо. --- ~ ----
|
#2
|
||||
|
||||
Прокрутка текста заголовка
Код:
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; для лейбла сам сообразишь) Делаю курсовые и лабораторные на Delphi, GPSS, Assembler, C++. Заказать и почитать отзывы можно на сайте, который указан в этой теме Дешево! |