На нашем сайте ежедневно публикуются десятки качественных и свежих материалов, которые Вы можете скачать абсолютно бесплатно. Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Для написания приложения на Delphi "Бегущая строка" нам необходимо разместить на форме следующие компоненты: Image1 со вкладки Additional Label со вкладки Standard Timer со вкладки System RadioButton (2 шт)
Меняем у приложения на Delphi "Бегущая строка ": у RadioButton1 свойство Caption на "Влево"; у RadioButton2 свойство Caption на "Вправо"; у Label1 свойство Caption на "Первое приложение на Delphi"; У компонента Image1 свойство Picture - загружаем любой рисунок; Заходим в обработчик событий onTimer таймера и пишем там следующий код между Procedure и Begin:
Код
var text:string; -задаём строковую переменную типа string. После Begin пишем: text:=label1.Caption; -присваеваем переменной text содержимое label1.Caption. if radiobutton1.Checked = true then проверяем условие и если включена кнопка Radiobutton1, то текст движется влево, а второе условие наоборот. label1.Caption:=copy(text,2,length(text)-1)+copy(text,1,1); if radiobutton2.Checked = true then label1.Caption:=copy(text,length(text)-1,1)+copy(text,1,length(text)-1); end;
В итоге должно получиться так (Весь код модуля unit Unit1).
Код
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, jpeg; type TForm1 = class(TForm) Image1: TImage; RadioButton1: TRadioButton; RadioButton2: TRadioButton; Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Timer1Timer(Sender: TObject); var text: string; begin text:=label1.Caption; if radiobutton1.Checked = true then label1.Caption:=copy(text,2,length(text)-1)+copy(text,1,1); if radiobutton2.Checked = true then label1.Caption:=copy(text,length(text)-1,1)+copy(text,1,length(ttext)-1); end; end.
|