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

名前

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

本文 ズバリ！！それです！！ --------------------------------------- unit sample_module; interface uses windows,Dialogs,forms,ExtCtrls,Graphics,Controls,Classes,SysUtils,AppEvnts,messages, StdCtrls; procedure go(sender:tobject;form:tform); procedure OnMouseMoveEvent(Self: TObject; Sender: TObject; Shift: TShiftState; X, Y: Integer); implementation var tfm: TForm; procedure OnMouseMoveEvent(Self: TObject; Sender: TObject; Shift: TShiftState; X, Y: Integer); var comp_memo:tmemo; begin comp_memo := tfm.FindComponent('memo1') as Tmemo; comp_memo.lines.add(inttostr(x)); end; procedure go(sender:tobject;form:tform); var ti:timage; tf: TForm; LMethod : TMethod; begin tf:= TForm.Create(nil); tf.Caption := 'overlay1'; tf.FormStyle:=fsStayOnTop; tf.width:=200; tf.Height:=200; tfm:=form; LMethod.Code := @sample_module.OnMouseMoveEvent; LMethod.Data := nil; tf.OnMouseMove := TMouseMoveEvent(LMethod); tf.Show; end; end. ---------------------------------------