delphi - In my custom component, how can I augment the mouse-enter and -leave events? -


I am creating a custom panel component that receives TPanel .

I want to execute some code on OnMouseEnter and OnMouseLeave event for its new component, however, I do not know how to implement it Go.

I see that TPanel has published the OnMouseEnter , OnMouseLeave property.

How do I override them and some of my codes?

Example of my thoughts: The default behavior of TMyPanel that should be in the component

OnMouseEnter on the event: color: = NewColor; Lay onMouse at the event: Color: = old color;

And again, I want to be able to assign some functions to run these programs at run time. This is done in the assignment application. 

  .. TButton1.Click .. Start MyPanel1.OnMouseEnter: = DoSomethingMore; MyPanel1.OnMouse Le :: = DoSomethingElse; End;

Finally, when the new panel is over, it should change the color and some other actions are written in the DoSomethingMore process.

Thank you

itemprop = "text">

Anohar's approach is to handle windows messages themselves: 

  Type TMyPanel = class (TPanel)) personal process CMMouseEnter (var Message: TMessage); Message CM_MOUSEENTER; CMMouseLeave Process (var Message: TMessage); Message CM_MOUSELEAVE; Published end; Implementation {TMyPanel} process TMyPanel.CMMouseEnter (var Message: TMessage); Start // Whatever you want before the event, if assigned (onmointer) then OnMouseEnter (self); End; Process TMyPanel.CMMouseLeave (var Message: TMessage); Start // Whatever the event you want, if you are assigned (carry onmos) then onmos leve (self); End;

Edit: See below for the better VCL compliant version.


Comments

Post a Comment

Popular posts from this blog

sql - dynamically varied number of conditions in the 'where' statement using LINQ -

I am using my first project LINQ (in mvc), so maybe there's something very simple that I remember. However, a day of searching and experimenting does not work, so it works. I am trying to write a LINQ query (Linux to SQL) in which in many cases where the statement is different from an OR or an AND. We do not know how many conditions are going in the query till runtime. This search is for filter control, where the user can choose multiple criteria for filtering. Select from table where table.col = 1 or table.col = 2 or table.col = 7 .... 'Other number of conditions Before I just create the SQL query as a string, while looping over all the situations. However, it seems that there should be a good way to do this in LINQ. I tried to use Expression trees, but they had a second thought for this moment on my head, where the lambda function was to be executed inside the statement such as: values ​​for matchingRows = matchingRows for each value Where (function (row) row.c...
Read more

asp.net mvc - Dynamically Generated Ajax.BeginForm -

I have a problem with ASP.NET MVC Ajax forms. I generate many Ajax form in a table such as: & Lt; Input type = "submit" name = "activity" value = "add activity" / & gt; & Lt;%}% & gt; & Lt; / TD & gt; & Lt; / TR & gt; & Lt;%}% & gt; So far so good. When I post one of those forms, it gives a partial view in a div, and in this new partial view a new Ajax Beginnform (which is not in Genesis form) This second Ajax Beginnorf is exactly like the ones I got on the table, but when I post it, I do not get the "Ajax Post", but a normal post that sends me to a new page, I do not know whether the two Ajax forms What is the reason for the difference between, why is it the "dynamically generated" Ajax form behaves like a normal HTML form? By the way, I know that I can do it in different ways using javascript, but I would like to understand whether it can only be done using MVC helplars and Ajax lib...
Read more

Debug on symbian -

I am using trk for phone debug This works well for the Holorld project But when I start the project in phone debug mode 1) the load failed 2) TrkProtocolPlugin: to target the specified file Failure (please verify If any body understands what problem I am experiencing, then this problem helps me Pre-release If the application has the privileges assigned (with the appropriate certificate) itemprop = "text" > In your case, I will check: / li> If there is no conflict of application ID with any other application of device If there are problematic commands in the installation package (for example copy copy for non-accessible directories)
Read more