掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ScrollBoxのスクロールイベント (ID:25756)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Halbowさんのサイトを頼りに、サブクラス化でScrollBoxのスクロールを検知して、処理を加えたかったんですが、コンパイル後にFormのOncreate部で「そのウィンドウにスクロールバーはありません」とエラーが出ます。 TScrollBox.WindowProcに任意の手続きを突っ込んだところでエラーが出るのは分かったんですが、理由が不明で困ってます。 最初は、スクロールバーが表示されてない状態だから起きたのかを思って、Halbowさんのサンプルを少しずつ削ったりして、検証したんですがサンプルの方だとスクロールバーがなくても全然問題ないみたいだし… ////////////////////////// private { Private 宣言 } public { Public 宣言 } OriginalProc:TWndMethod; procedure GetMessage(var Msg:TMessage); ////////////////////////// ////////////////////////// procedure TfrmMain.FormCreate(Sender: TObject); begin OriginalProc := sbxArtBoard.WindowProc; sbxArtBoard.WindowProc := GetMessage; end; procedure TfrmMain.GetMessage(var Msg: TMessage); begin //無記述 end; //////////////////////////
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.