Labelで指定した文字数以上を表示させなくするには

なな  2007-02-03 14:37:02  No: 24770  IP: 192.*.*.*

はじめましてです。

Labelでの文字表示で質問があるのですが
ラベル上で指定した文字数以上が表示される時
オーバーした分の文字だけを「・・」で表示させたいのですが
すみません、分かる方いらっしゃいますか。

編集 削除
まこと  2007-02-03 16:55:06  No: 24771  IP: 192.*.*.*

ラベルに文字を表示するのはどのタイミングなのでしょうか。
そのタイミングで以下のようにすればよいと思いますが。

//10は適当な数字です。
if Length(Label1.Caption) > 10 then
  Label1.Caption := Copy(Label1.Caption, 1, 10) + '...';

バイト数でなく文字数でカウントしたいならWideStringを
使うと可能です。

編集 削除
deldel  2007-02-06 09:06:44  No: 24772  IP: 192.*.*.*

ファイル名ならこんなのありますけど。
Label1.Caption := MinimizeName('C:\Program Files\Borland\Delphi5\Demos\Activex\Oleauto\SrvComp\Word\pwordcomp.dpr', Label1.Canvas, Label1.Width);
ちょっと違いますけど。

編集 削除