delphi label1 텍스트가 창에서 수평으로 이동합니다

971 단어 Delphi
//  
procedure TForm1.Timer1Timer(Sender: TObject); { Timer1.Interval:=10;}
begin
   if label1.Left +label1.Width > 0 then  
     label1.Left :=label1.Left - 2
   else label1.Left :=form1.Width;
end;

Wiz

좋은 웹페이지 즐겨찾기