[rrr]

Хочу набросать на panel много прямоугольников с полями и двигать их мышкой.

Объявляю тип:

Код:

type
TPost = class( TPanel)
LabelCode: TLabel;
LabelName: TLabel;
EditCode: TEdit;
EditName: TEdit;
procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;

Пишу процедуру:

procedure TPost.MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
frmMain.StatusBar.SimpleText:='aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
end;

По клику создаю прямоугольник (он честно появляется на панели)

Код:

TPost.Create(Self).Name := ('Post'+inttostr(nPanNumber) );

Присваиваю ему top, left, и прочие свойства. Тыкаю мышкой - процедура не вызывается. Ставил чекпойнт в дебаггере - таки не вызывается.
Что я делаю не так, подскажите, pls.

MAD: Пользуемся тегами, или последуют санкции!

[Yurk@]

а созданому элементу своё событие MouseDown назначил?

[rrr]

Код:

procedure MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

[M.A.D.M.A.N.]

Это объявление, а не назначение.

[rrr]

А как правильно?

[M.A.D.M.A.N.]

Код:

blabla.onmousewheel := blabla;