名前
題名
▼ Mr.XRAYさん > ▼ 空色の渚さん > > > Timage を乗せて実験したところ反応しなくなりました（涙 > > 　何が彼等をそうさせてしまうのでしょう？ > > それはですね．普段の行いが悪いからです． > よ〜く，思い出してください． > > > 　対応策はできますでしょうか？ > > 上記の理由から，心を改め，普段の行動を改めることです． > こういうのを > 「身から出たさび」とか「天網恢恢疎にして漏らさず」 > というわけです． > ウソ，ウソです (^^; > > > 他のコントロールに載せているコントロールの場合， > 親のコントロールがメッセージを処理します． > このような場合，対象にするコントロールに CM_MOUSELEAVE メッセージを処理する > 機能をつけることになります． > その方法は，前に書いたように，継承クラスを作成する．つまりコンポーネントを > 作ることです．そのための継承クラスの作成機能があるわけです． > もう1つの方法は，前にも述べた，サブクラス化の方法です， > サブクラス化は，その対象コントロールはあまり使わない，一時的な場合には > 便利です． > 以下は，サブクラス化のコード例です． > 図は，テスト用のフォームの設計時の画面です， > 動作確認環境は，またまた Windows 7 U64(SP1) + Delphi XE Pro です． > > サブクラスについては，以下を参考にしてください． > [サブクラス化コンポーネント] > http://mrxray.on.coocan.jp/Halbow/Notes/N004.html > > type > TForm1 = class(TForm) > Memo1: TMemo; > Panel1: TPanel; > Image1: TImage; > procedure FormCreate(Sender: TObject); > private > protected > { Private 宣言 } > OriginalImageProc : TWndMethod; > procedure SubClassImageProc(var Message:TMessage); > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > {$R *.DFM} > > { TForm1 } > //----------------------------------------------------------------------------- > // アプリ開始時にImage1のWindowProcを自作のWindowProcに置き換える > // サブクラス関数の名前は何でもいいが，引数はvar Message:TMessage だけ > //----------------------------------------------------------------------------- > procedure TForm1.FormCreate(Sender: TObject); > begin > OriginalImageProc := Image1.WindowProc; > Image1.WindowProc := SubClassImageProc; > > //テスト用の画像をImage1に表示 > Image1.Stretch := True; > Image1.Picture.LoadFromFile('503.bmp'); > end; > > //----------------------------------------------------------------------------- > // 自作のImage1専用WindowProcのサブクラス化関数 > //----------------------------------------------------------------------------- > procedure TForm1.SubClassImageProc(var Message: TMessage); > begin > //元のWindowProcは必ず実行する > OriginalImageProc(Message); > > case Message.Msg of > CM_MOUSELEAVE: > begin > Memo1.Lines.Add('Leave'); > end; > end; > end;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link