掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
動的に発生したコンポのイベントハンドラ (ID：33913)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
この掲示板にあった右寄せできる TEdit のコードを参考にして次のように コーディングしたのですが、イベントが発生しません。どこが悪いのでしょう？ TMyEdit = class(TEdit) //イベントがそのまま使えるようにTEditから派生 protected //オリジナルはTCustomEditから派生 procedure CreateParams(var Params: TCreateParams); override; end; TForm1 = class(TForm) private procedure Dec2EditChange(Sender: TObject); //反応しないイベント ・・・・・・ var Form1: TForm1; DecEdit: TMyEdit; implementation procedure TMyEdit.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.Style := Params.Style or ES_RIGHT; end; procedure TForm1.FormCreate(Sender: TObject); begin DecEdit := TMyEdit.Create(Form1); ・・・・・・ //このイベントハンドラが反応しない procedure TForm1.Dec2EditChange(Sender: TObject); begin if (Dec2Edit.Text = '') then ・・・・・・ end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.