ユニット分割について (ID:149993)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >Mr.XRAY 様 >TControl.OnClick のイベントの型は TTNotifyEvent てず． お返事ありがとうございます。 そこがダメだったんですね。 普通にフォームに記述する場合は下記で動くので image1.onMouseDown(Self,mbLeft,[ssLeft],10,10); 下記のように変更してみましたが下記のエラーが表示されてしまいます。 Incompatible types: 'TShiftState' and 'TMouseButton --------------------------------------------- Method.Code := @me(sender,mbLeft,[ssLeft],10,10); Method.Data := Sender; ti.OnMouseMove := TMouseMoveEvent( Method ); procedure me(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); begin showmessage('xxx'); end; --------------------------------------------- >KONNOYA様 >どの様な特殊な事情があるのでしょう？ 仕事で指示されているわけでは無いので特殊な事情というのは無いんですが 例えばrichedit等だとcontextmenuがデフォで無いので、押した返り値だけ取得できれば良いので、定型のガワだけ用意しておき、色々なフォームやアプリを作った際にも、項目名を投げるだけでて内容を変更しクリックで返り値をえたり、stringgridでユニークなindexを生成するなど同じ処理を行う事が多いので、その部分を1つのファイルを引っ張ることにより使い回して部品化したく思いました。 >take様。 >関数群を各フォームごとに記述するのではなく共通のどこかで定義出来ないか？って話なのかなぁ それです！！ なので①を進めている感じになると思います。