TPanelを継承したTKsBlockというクラスを別ファイルで作りました。
動的にパネルを配置し、パネルをマウスでクリックしたときbeepを鳴らしたいのですが、
うまくいきません。教えてください。m(__)m
********
unit Unit1;

interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, KsBlock, StdCtrls;
type
TMainForm = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
private
public
procedure KsBlockMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
end;
var
MainForm: TMainForm;
block: TKsBlock;
implementation

procedure TMainForm.KsBlockMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Beep;
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
// ↓ここで、エラー。イベントの関数を割り当てたい。
// block.OnMouseDown := KsBlockMouseDown;
end;

// ボタン押したら、動的にコンポーネント作成
procedure TMainForm.Button1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
block := TKsBlock.Create(MainForm);
block.Parent := MainForm;
block.Left:= 100; block.Top:= 100; block.Width :=100; block.Height:= 100;
beep;
end;
end.