掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
OleContainerのフォーカス (ID：25653)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
clone好きやねんさんに教えて頂いたクローンにイベントを追加 マウスがコントロールに入ったときにエクセルをアクティブにする。 {宣言部} TOleContainerEx = class(TOleContainer) private function ShowToolBar: HRESULT; procedure CMUIDeactivate(var Message: TMessage); message CM_UIDeactivate; procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER; // <-追加 constructor CreateClone(Origin: TControl); end; {実行部} ・・・ procedure TOleContainerEx.CMMouseEnter(var Msg: TMessage); var WinHnd : Integer; begin // エクセルのハンドルを検索 WinHnd := FindWindow('XLMAIN', nil); if WinHnd > 0 then begin SetForegroundWindow(WinHnd); end; end; ・・・ とりあえず、これで何とか思うようになりました。 clone好きやねんさん、Mr.XRAYさんありがとうございました。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.