【DO!BOOK・ページリンク】 2008_migaro_techreport_001 118 / 136 10秒後にBOOKのページに移動します |
|
116 5.Editの右寄せ表示 Edit コンポーネントで数値項目を 表示する場合、右寄せで表示する ことはできますか? Edit コンポーネントの標準プロ パティには、Alignment プロパ ティが存在しない。そのため、右寄せや中 央寄せといった操作を行うことができな い。 対応方法はいくつかあるが、コンポーネ ント個別に対処を行うと、メンテナンスが 手間となる。Edit コンポーネントを派生 させて、新しいコンポーネントを作成する 手法が一般的である。【ソース4】 Q. A. ソース4 右寄せコンポーネント実装例 unit REdit; interface uses SysUtils, Classes, Controls, StdCtrls, Windows; type TREdit = class(TEdit) private { Private 宣言 } protected { Protected 宣言 } procedure CreateParams(var Params: TCreateParams); override; public { Public 宣言 } published { Published 宣言 } end; procedure Register; implementation procedure Register; begin RegisterComponents(' パレットページ名', [TREdit]); end; { TREdit } procedure TREdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_RIGHT; end; end. |