MinimizeName 関数を使用します。
インストール画面などでよく見かける、ファイル名の途中を...で省略した文字列を作成するために、DelphiではMinimizeName関数が用意されています。
注意 この関数を使用するためには、usesにFilectrlユニットを追加する必要があります。
例としてエディットボックスにアプリケーションのEXE名を表示します。
type TForm1 = class(TForm) Edit1: TEdit; procedure FormCreate(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation uses Filectrl; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin Edit1.Text := MinimizeName(Application.ExeName, Canvas, Edit1.Width); end;
コメント (0件)