掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
EditのTEXTの右寄せについて (ID:3005)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
「チャミ」 あの〜(^^ゞ 私も右寄せEditが欲しいな〜ナンテ思うンですけど〜♪ 「ゆうこ」 欲しかったら自分で作ればエエやん。これだけで右寄せ表示出来ルンよ。 type TMyEdit = class(TCustomEdit) protected procedure CreateParams(var Params: TCreateParams); override; end; var MyEdit1 : TMyEdit; procedure TMyEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_RIGHT; end; 「チャミ」 あの〜試してみても MyEditなんてな〜んにも表示されないンけど〜？ 「ゆうこ」 コンポやないンから、フォームのOnCreateにコレ書かなアカンよ。 procedure TForm1.FormCreate(Sender: TObject); begin MyEdit1 := TMyEdit.Create(Self); // MyEdit1のプロパティ設定 with MyEdit1 do begin Visible := True; Parent := Form1; // 置き場所 Height := 22; Width := 80; Left := 100; Top := 20; end; end; 「チャミ」 じゃ〜ナカザワさんの年と同じくらいMyEdit使う時は大変ですよネ〜♪ 「ゆうこ」 ウチの年と同じ数？ 四捨五入して…８個くらいなんもないやん。 「チャミ」 エッエ〜？(^^;; どんな計算したら８になるんですか〜？(^^ゞ 「ゆうこ」 十の位を四捨五入したんよ。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.