掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DBGridのダブルクリック (ID：28889)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
変な動作あるかもしれないけどこんなのどうでしょうか。 private { Private 宣言 } FOrgProc: TWndMethod; procedure SubProc(var Msg: TMessage); ｜ 省略 ｜ procedure TForm1.DBGrid1DblClick(Sender: TObject); var Msg: TMessage; begin //InplaceEditorメッセージフック準備 if not Assigned(FOrgProc) then begin FOrgProc := TMyGrid(DBGrid1).InplaceEditor.WindowProc; TMyGrid(DBGrid1).InplaceEditor.WindowProc := SubProc; //初回ダブルクリック Msg.Msg := WM_LBUTTONDBLCLK; SubProc(Msg); end; end; procedure TForm1.SubProc(var Msg: TMessage); begin FOrgProc(Msg); if Msg.Msg = WM_LBUTTONDBLCLK then begin ShowMessage('DblClick'); end; end; ・・・面倒かな。。。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.