Ну тебе-же написали присвой edit.onMouseDown значение твоего обработчика событий. Вот пример из моей программы:
Код:
TForm18 = class(TForm)
...
procedure CardMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
private
procedure AddCards(Colour: TCardColour; Bitmap: TBitmap; Pos: Integer);
...
end;
...
procedure TForm18.AddCards(Colour: TCardColour; Bitmap: TBitmap; Pos: Integer);
var
Y,X: Byte;
begin
for Y := 0 to 2
do for X := 0 to 4
do begin
...
CardPack[High(CardPack)] := TCard.Create(Value,Colour);
CardPack[High(CardPack)].Picture.Parent := Self;
...
CardPack[High(CardPack)].Picture.OnMouseDown := CardMouseDown;
CardPack[High(CardPack)].Picture.OnMouseMove := CardMouseMove;
end;
end;
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Последний раз редактировалось Страдалецъ, 25.06.2009 в 08:02.
|