[Ama]

Помогите, я хочу в компонент добавить события OnMouseDown, OnMouseMove, OnMouseUp, так как я компоненты не создавал никогда, то как мне реализовать эти события. И есть ли у кого-нибудь есть литература по созданию компонентов в Delphi 6?

[The Shadow]

Обрабатывай сообщения WM_MOUSEMOVE, WM_LBUTTONDOWN, WM_LBUTTONUP

[Ama]

Сообщение от The Shadow

Обрабатывай сообщения WM_MOUSEMOVE, WM_LBUTTONDOWN, WM_LBUTTONUP

Но я хотел что бы у компонента были эти события. А если обрабатывать эти сообщения то мне придется в каждом приложении их обрабатывать

[The Shadow]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

type   TOnMouseMove = procedure (<параметры>) of object; ... private   FOnMouseMove: TOnMouseMove;   procedure MouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE; published   OnMouseMove: TOnMouseMove read FOnMouseMove write FOnMouseMove; ... procedure TMyComponent.MouseMove(var Message: TWMMouseMove); begin   if Assigned(FOnMouseMove) then FOnMouseMove(<параметры>); end;

Вроде так...