TLabelの文字をスクロールさせるには？

解決

マリモ  2003-04-19 13:49:05  No: 3360  IP: 192.*.*.*

TLabelコンポーネントの文字を、電光掲示板のように横スクロールさせたいのですが、そのようなことは可能でしょうか。

編集 削除
たかみちえ  URL  2003-04-19 14:09:33  No: 3361  IP: 192.*.*.*

TLabelそのものにはそういう機能はないです。
  それを継承するなりして、自分でやる必要があります。

  DelphianWorld(有名なので、URLは省略^^;)にも多々ありますけど、
うちの"おんぷむらのうら"で公開している、
"TMarqueeControl"なんかもどうでしょうか？
おんぷ村倉庫＞Delphiコンポーネント＞TMarqueeControl
サンプル(テストEXE)つきです。
(実は実際に使う時には、作り直そうカナとも思っていますけど…^^;)

編集 削除
たかみちえ  URL  2003-04-19 15:25:34  No: 3362  IP: 192.*.*.*

> サンプル(テストEXE)つきです
  ごめんなさい、ソースだけです^^;

編集 削除
kazu  2003-04-19 22:02:11  No: 3363  IP: 192.*.*.*

コンポーネントを新たに作らないなら、

procedure TForm1.Timer1Timer(Sender: TObject);
var
  s: string;
begin
  s := Label1.Caption;
  if ByteType(s, 1) = mbSingleByte then s := copy(s, 2, Length(s)-1) + s[1]
  else s := copy(s, 3, Length(s)-2) + copy(s, 1, 2);
  Label1.Caption := s;
end;

編集 削除
マリモ  2003-04-21 08:51:08  No: 3364  IP: 192.*.*.*

たかみちえさん、kazuさん、ありがとうございます。

> DelphianWorld(有名なので、URLは省略^^;)にも多々ありますけど
  当初コンポーネントがないかDelphianWorldで探してみました。
  わたしの探しようがあまかったのか・・・
  ありました^^;
  "おんぷむらのうら"にも足を運んでみます。


> コンポーネントを新たに作らないなら
  ものは考えようですね。
  とても勉強になります。ありがとうございます。

編集 削除