Класс и MouseMove

[ZBEP]

Подскажите, как добавить процедуру OnMouseMove созданному классу.

Пример класса:

TYzel = class(TObject)
private
  SX,SY,x,y:integer; //SX - Ширина, SY - Длина, x,y - координаты. 
  Image:DXImage;     //Текстура.
  procedure YDraw(); //Прорисовка текстуры.
end;

Сделал это для более удобного вывода изображения средствами DX.
Теперь бы хотелось как-нибудь обрабатывать событие при наведении мыши на выводимое изображение.
Подскажите как это сделать

[ArtGrek]

вот из моего проекта, параметры красным должны совпадать с параметрами из оригинальных событии компонент

type
  TForm1 = class(TForm)
...
    procedure ImagesMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ImagesMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ImagesClick(Sender: TObject);
    procedure ImagesDblClick(Sender: TObject);
...
var
    Images: TImage;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
...
  Images := TImage.Create(self);
  with Images do
  begin
    Parent := Panels;
    Tag := s;
    Top := 5;
    Left:=5;
    Width := 180;
    Height := 130;
    Name := 'Images' + IntToStr(s);
    Stretch := True;
    Picture.LoadFromFile(Path + '\Images\' +IntToStr(S) + '.jpg');
    OnClick := ImagesClick;
    OnDblClick := ImagesDblClick;
    OnMouseDown := ImagesMouseDown;
    OnMouseMove := ImagesMouseMove;
    OnMouseUp := ImagesMouseUp;
  end;
...
end;

procedure TForm1.ImagesClick(Sender: TObject);
begin
...
end;

procedure TForm1.ImagesDblClick(Sender: TObject);
begin
...
end;

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

procedure TForm1.ImagesMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
...
end;

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

end;

[Stilet]

Если не ошибаюсь примерно так:

TYzel = class(TObject)
  private
    FOnMouse: TMouseEvent;
    procedure SetOnMouse(const Value: TMouseEvent);
published
   property OnMouse:TMouseEvent read FOnMouse write SetOnMouse;
private
  SX,SY,x,y:integer; //SX - Ширина, SY - Длина, x,y - координаты.
  Image:DXImage;     //Текстура.
  procedure YDraw(); //Прорисовка текстуры.
  procedure OnMouse_(var m:TWMMouse); message WM_Mouse;
end;
...
procedure TYzel.OnMouse_(var m: TWMMouse);
begin
 if Assigned(OnMouse) then OnMouse(self,и остальные параметры
end;

procedure TYzel.SetOnMouse(const Value: TMouseEvent);
begin
  FOnMouse := Value;
end;

ArtGrek

Обрати внимание от чего наследуешь ты класс и от чего наследует автор

Кстати. Для обработки таких вещей как мышка стоит наследовать от WinControl а не просто от TObject, ведь он не является окном, а значит и сообщения мышки не обработает

[ZBEP]

Спасибо!
А если от WinControl наследовать, то как мышь выловить?

Чет немного не понятно
Сделал WinControl.
OnMouseMove в свойствах есть, присваиваю к примеру процедуру FormMouseMove, но реакции нет.
Пробовал как в примере выше, но что-то я не догоняю..
Ну в общем не получается что-то у меня из-за того, что не доконца разобрался..

TYzel = class(TWinControl)
private
  FOnMouse: TMouseEvent;
  SX,SY,x,y:integer;
  Button: TMouseButton;
  Shift: TShiftState;
  procedure YDraw();
  procedure SetOnMouse(const Value: TMouseEvent);             //Вот в этом
  procedure OnMouse_(var m:TWMMouse); message WM_MouseMove;   //И этом не полностью понимаю принцип работы
published
  property OnMouse:TMouseEvent read FOnMouse write SetOnMouse;   
end;

procedure TYzel.OnMouse_(var m: TWMMouse);
begin
if Assigned(OnMouseMove) then OnMouse(Self,Button,Shift,X,Y);  //Тут ведь так надо? Не уверен.. Да и если я пытаюсь отловить MouseMove у Yzel, то при чем тут Button?
end;                                                                                  

procedure TYzel.SetOnMouse(const Value: TMouseEvent);
begin
FOnMouse := Value;
end;

...
Yzel:=TYzel.Create(Form1);
Yzel.x:=800;
Yzel.y:=54;
Yzel.Sx:=50;
Yzel.Sy:=50;
yzel.OnMouseMove:=FormMouseMove;   
...

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
form1.caption:=format('%d %d',[x,y]);
end;

При движении мыши - ничего не происходит

[ArtGrek]

залеите весь проект что б можно было на практике разбираца

[ZBEP]

ArtGrek, ох, там оочень много лишнего не по теме..
Сейчас попробую обрезок сделать и залью.

[ZBEP]

Вот обрезал все.
В архиве скомпилированный проект с исходниками и dll для работы DX.
+ На всякий случай сам DX.

[ZBEP]

Сделал вот так:

unit ZComp;

interface

uses Windows, Classes, Controls, Forms, Mini2DUT, Mini2DDX;

type

  TZComp = class(TControl)
  public
    constructor Create(AOwner: TComponent); override;
  end;

  TZCom = class(TZComp)
  published
    property Align;
    property Anchors;
    property Constraints;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property ParentShowHint;
    property PopupMenu;
    property ShowHint;
    property Visible;
    property OnClick;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnGesture;
    property OnMouseActivate;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnMouseEnter;
    property OnMouseLeave;
    property OnStartDock;
    property OnStartDrag;
    procedure ZDraw(Image:DXImage);
  end;

implementation

constructor TZComp.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Width := 50;
  Height := 50;
end;

procedure TZCom.ZDraw(Image:DXImage);
begin
DXDraw(Left,Top,Left+Width,Top+Height,Image);
end;

end.

Хз "гуманно" это или нет, главное работает так, как я хотел.