掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TEditのKeyDownイベントを実行させるには? (ID:49380)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
僭越ではありますが，そういう時のすごい技をお教え致します． それは「新規にプロジェクトを作成」して，その動作，機能だけをテストするプログラムを書いてテストするのです． この方法は，私が長年 Delphi を使っていて苦労の末に編み出した「技」です． 今回，特別に愛する貴方だけに公開するものです． 例えば以下のようにします． こうすると，以下のコードをコピペして，他の方もテスト可能になり， もしかしたら他の方がテストして修正方法等を教えてくれるかも知れない， というスゴイ「技」なのです． もちろん Windows のバージョンや Delphi のバージョンを書いておきます． //============================================================================= // 動作確認 Windows 7 U64(SP1) + Delphi XE5(UP2) Pro //============================================================================= procedure TForm1.Button1Click(Sender: TObject); var LKey : Word; begin LKey := VK_RETURN; Edit1KeyDown(Sender, LKey, []); end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_RETURN then begin ShowMessage('AAA'); end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.