[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]

Код:

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;

Вроде так...