Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Вниз
Бегущая строка Найти похожие ветки
← →
Torn (2002-08-08 23:45) [0]Кто знает где взять и есть ли компонент бегущая строка?
← →
Voldemar (2002-08-09 01:54) [1]Делается на основе TLabel в течение получаса... Могу примерчик кинуть - как сам делал.
← →
mukha (2002-08-09 07:00) [2]Самый простой пример бегущей строки:
procedure TForm1.Timer1Timer(Sender: TObject);
Var st1:ShortString;
begin
st1:=copy(Label1.Caption,2,length(Label1.Caption)-1);
st1:=st1+Label1.Caption[1];
label1.Caption:=st1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:=" Пример бегущей строки";
end;
Также бегущую строку можно сделать используя из RXLib к-т TSecretPanel
← →
LVG (2002-08-09 07:53) [3]В RXLib есть такой компонент.
← →
Yuri Btr (2002-08-09 09:37) [4]У меня есть пример на основе Canvas, олько я его делал исключительно в познавательных целях. Но с ним можно выводить бегущую строку везде, где есть свойство Canvas.
T1.OnTimer
_________________________
if ((textpos<PBx2.Width) And (T1.Enabled=true))
then
begin
textpos:=Trunc(PBx2.Width/150)+textpos;
PBx2.Canvas.TextOut(textpos,10,"HALLO !");
end
else
begin
textpos:=-20;
end;
← →
Torn (2002-08-09 15:40) [5]всем спасиба компонент я не отыскал пришлось самому написать (всего 3 строчки кода)))))))))))))))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.08.22;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c
