Custom class OnMouseDown

[TomTom]

Let's say I have something like this:

Code: Pascal  [Select][+][-]

1. type
2.  
3.   { TMapObject }
4.  
5.   TMapObject = class
6.   private
7.       FRect: TRect;
8.       FDesc: String;
9.     procedure SetRect(aRect: TRect);
10.   public
11.   property Desc: string read FDesc write FDesc;
12.   property Rect: TRect read FRect write SetRect;
13.   end;
14.  
15.  

Is it possible and if it is then how Can I add procedures OnMouseDown, OnMouseMove, OnMouseUp to this ? I need that it can detect mouse position (x,y) and mouse clicks.



I wanted to describe it in details but for now it's to hard for me to do so.

For now I'm using this... It's ok as it works but it checks array which in final product will be HUGE (over 1000 objects).

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
2.   Shift: TShiftState; X, Y: Integer);
3. var
4.   i: Integer;
5. begin
6.     for i:= 0 to length(list)-1 do
7.   Begin
8.     if list[i].rect.Contains(Point(x,y)) then Form1.Caption:=list[i].desc;
9.   end;
10. end;  

I need to create something that will act as an clickable area. It will have its position (TRect.TopLeft) and width/height, description (TString or TStrings I guess). I also need it to have an event OnMouseDown so it can be clicked. When it's clicked I need to execute procedure that will for example add a line to TMemo.Lines.add(ClickedMapObject.Desc + ' ' + ClickedMapObject.Rect.TopLeft); or any other property that it have.

It's doesn't need to be rendered in any form. I need it to be area that is virtual (?) and have OnMouseDown/OnMouseUp/OnMouseEnter etc.
Maybe there is something else that I could use. I don't know.
 

[VTwin]

I don't really follow your requirements. Including a 'break' in your 'if then' would speed things up though.

[TomTom]

Yeah I know... I find it hard to describe it. I will try to describe it better tomorrow with some screen shots so I hope it will be easier to understand what do I need this for or what I want to achieve.

[Bart]

Your class is not a visual component, so how can it have MouseEvents?

[jamie]

I think the poster is looking for a transparent type of overlay that can receive mouse messages, and optionally draw in it maybe,

you can create a transparent window where it actually only works well in Windows, or you can use a TGraphicsControl that you create whereby you set the parent so it can receive the mouse messages but don't draw on it so you can still see the background.

[TomTom]

Thanks everyone. I managed to solve this. Maybe it's not perfect solution but it works for me.
I made TMapArea class with TRect and some other properties that I need (name, description, image ...)
Im adding TMapArea objects to dynamic array. Then in OnMouseDown of my map canvas (TBGRAVirtualScreen) I'm checking in a loop if clicked point is in TRect of any of my objects).
This red square is just Shape so user can see what, and where they're placing. It's moveable and dissapears when adding places is finished.