$mymetatags$
Наш опрос |
Бегущая строка в Delphi 7. Для создания понадобятся следующие компоненты: Label со вкладки Standard Timer со вкладки System RadioButton (2 шт) Меняем у RadioButton1 свойство Caption на Влево Меняем у RadioButton2 свойство Caption на Вправо Меняем у Label1 свойство Caption на любое например на www.delphi-lubitel.ucoz.ru Заходим в обработчик событий onTimer таймера и пишем там: Между Procedure и Begin var txt:string; После Begin txt:=label1.Caption; if radiobutton1.Checked = true then label1.Caption:=copy(txt,2,length(txt)-1)+copy(txt,1,1); if radiobutton2.Checked = true then label1.Caption:=copy(txt,length(txt)-1,1)+copy(txt,1,length(txt)-1); end; В итоге должно получиться так: procedure TForm1.Timer1Timer(Sender: TObject); var txt:string; begin txt:=label1.Caption; if radiobutton1.Checked = true then label1.Caption:=copy(txt,2,length(txt)-1)+copy(txt,1,1); if radiobutton2.Checked = true then label1.Caption:=copy(txt,length(txt)-1,1)+copy(txt,1,length(txt)-1); end; |
Друзья сайта |