Добавление обработчиков к создаваемым компонентам

← →
OlegM (2003-05-28 13:31) [0]

Привет всем!
Создаю TPanel в RunTime так

S:=TPanel.Create(Self);
S.Left:=112;
S.Parent:=form1;
S.Top:=384;
S.Width:=41;
S.Height:=41;
S.Visible:=true;

Как мне для этой панели в обработчик события OnMouseDown
засунуть этот код и конечно что-бы эта панель реагировала на него

const
SC_DragMove = $F012;
begin
ReleaseCapture;
Panel1.Perform(WM_SysCommand, SC_DragMove, 0);
end;

← →
pasha_golub (2003-05-28 14:04) [1]

type TForm1 = class(TForm)
....

public

procedure MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{ Твоя процедура }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

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

begin
showmessage("c"); // сюда помещай свой код
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Panel1.OnMouseDown := MouseDown;
end;

end.

← →
OlegM (2003-05-28 14:19) [2]

Вылетает с ошибкой на
S.OnMouseDown:=MouseDown;

Method "MouseDown" hides virtual method of base type "TControl"

← →
OlegM (2003-05-28 14:21) [3]

Cпасибо огромное, разобрался.

Добавление обработчиков к создаваемым компонентам Найти похожие ветки