Caption

← →
Unk (2003-02-24 12:22) [0]

Как сделать бегущую строку в заголовке окна? Спасибо.

← →
Sherbacov (2003-02-24 12:26) [1]

Есть такие компоненты или с помощью таймера.

← →
___ALex___ © (2003-02-24 13:35) [2]

рисовать в заголовке эту строку(смещая как надо для создания иллюзии движения)
для рисования получи описатель контекста устройства для всей области окна

← →
Darkwin © (2003-02-24 13:41) [3]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
caption:=Caption[length(Caption)-1]+copy(Caption,1,Length(Caption)-1);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
caption:=Caption[length(Caption)]+copy(Caption,1,Length(Caption)-1);
end;

Pererisovivat samomu tu oblast v kotoroi zagolovok.

Caption Найти похожие ветки