如題

你好： 你是要讓文字跑馬嗎? 如下的程式給你參考 < class="code"> 1 加一個 TTimer 並將 OnTimer 設為 Timer1Timer。 2 確定 Form 的 Caption 有文字。 procedure TForm1.Timer1Timer(Sender: TObject); begin Caption := Copy (Caption, 2, Length (Caption)) Caption [1]; end;

請問假如是中文就會變亂碼,如何解決

用了着这样麻烦吗？在panel上放个label就可以实现上下左右，还有其它方式的实现，不论是什么字体系统支持就可以< > 举个例如下，其它方式差不多的< >。 procedure TForm1.Timer1Timer(Sender: TObject); BEGIN if Label1.Left

你好： sos_admin 也是一個辦法，你可以選擇他的方式。 針對中文的部分，有修正如下，也給你參考看看吧

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (Ord (caption [1]) >= 32) and (Ord (caption [1]) <= 127)then
    Caption := Copy (Caption, 2, Length (Caption))   Caption [1]
  else
    Caption := Copy (Caption, 3, Length (Caption))   LeftStr (Caption, 2)
end;