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

解決

マリモ 2003-04-19 22:49:05 No: 3360

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

たかみちえ URL 2003-04-19 23:09:33 No: 3361

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

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

たかみちえ URL 2003-04-20 00:25:34 No: 3362

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

kazu 2003-04-20 07:02:11 No: 3363

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

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 17:51:08 No: 3364

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

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

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