掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
右寄せ設定をTEditにつっこむには (ID：24665)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
マァ〜確かに厳密には「既存Editに反映させる」とは言えないけど、 TMyEditコンポをわざわざインストールする手間が不要で、 編集時に貼り付けた標準のTEditを TMyEditに動的に変身させる このワザはイイと思うヨ。 別のPCにDelphi開発環境が変った時など、 「アッ、そうだ。このコンポをインストールしなきゃ」なんてコトは 横着ものでなくてもやっぱりメンドウ。 ..... var Form1: TForm1; implementation type TMyEdit = class(TCustomEdit) protected procedure CreateParams(var Params: TCreateParams); override; end; procedure TMyEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_RIGHT; end; procedure TForm1.FormCreate(Sender: TObject); begin ReplaceEdit(Edit1); // 貼り付けてあった標準のEdit1が 右寄せTMyEditにヘンシ〜ン Edit1.Text := '12345'; ReplaceEdit(Edit2); // 貼り付けてあった標準のEdit2が 右寄せTMyEditにヘンシ〜ン Edit2.Text := '56789'; ..... end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.