掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Editコンポーネントを右寄せで表示させるには？ (ID:9195)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
うーむ、ES_RIGHT は動的にスタイル変更がきかないのかなぁ？ TEdit の CreateParams() をオーバーライドするといいようです。 uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TREdit = class(TEdit) protected procedure CreateParams(var Params: TCreateParams); override; end; TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private 宣言 } public REdit:TREdit; end; var Form1: TForm1; implementation {$R *.DFM} { TREdit } procedure TREdit.CreateParams(var Params: TCreateParams); begin inherited; Params.Style := Params.Style or ES_RIGHT; end; procedure TForm1.FormCreate(Sender: TObject); begin REdit := TREdit.Create(self); REdit.Parent := self; REdit.Left := 10; REdit.Top := 10; REdit.Text := '右揃えになった！'; end; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.