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

名前

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

本文 Form2を作ってボタン1つパネル1つ置いて Unit5.pas として保存 Form1の方はForm2を保存した Unit5.pas をインクルード メインの方のボタンクリックイベントで TForm2を動的生成してイベント割り当て >TMouseMoveEventだと同じように出来ないのはなぜ？ イベントの種類がButtonClickとMouseMoveで異なるからです。 誰かが説明していたような・・・ とにかくMouseMoveをメインで拾うソースも置いておきます。 Form2のソース //-------------------------------------------------------------------------------- unit Unit5; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; type TForm2 = class(TForm) Button1: TButton; Panel1: TPanel; private { Private 宣言 } public { Public 宣言 } end; end. //-------------------------------------------------------------------------------- // メインフォームのソース //-------------------------------------------------------------------------------- uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,Unit5; type TForm1 = class(TForm) Button1: TButton; Panel1: TPanel; Button2: TButton; procedure Button1Click(Sender: TObject); private { Private 宣言 } public { Public 宣言 } procedure ButtonClientClick(Sender: TObject); procedure PanelClientMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var tf: TForm2; begin tf := TForm2.Create(Self); tf.Parent := Panel1; tf.Align := alClient; tf.Button1.OnClick := ButtonClientClick; tf.Panel1.OnMouseMove := PanelClientMouseMove; tf.Show; end; procedure TForm1.ButtonClientClick(Sender: TObject); begin Caption := 'Click'; end; procedure TForm1.PanelClientMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Caption := 'Mouse Move'; end;