сделать бегущую строку (маятник) заголовка группы взаимозависимых переключателей, на котором произошло последнее событие.

[Spruti]

сделать бегущую строку (маятник) заголовка группы взаимозависимых переключателей, на котором произошло последнее событие.

procedure TForm1.tmr1Timer(Sender: TObject);
var
  a:boolean;
  str:string;
begin
  str:=lbl1.Caption;
  if Lbl1.Caption<>' ' then
      a:=true;
  if length(Lbl1.Caption)>=270 then
      a:=false;
  if a=true then
      lbl1.Caption:=' '+ lbl1.Caption
  else
  begin
     str:=lbl1.Caption;
     delete(str,1,1);
     lbl1.Caption:=str;
  end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

Текст доходит до конца, но не возвращается.