[DUG] Component creation
Robert martin
rob at wildsoft.co.nz
Wed Sep 6 11:41:47 NZST 2006
Hi all
I have this beaten now !!!!
The required message is CM_CANCELMODE ....
procedure CMCancelMode(var Message: TCMCancelMode); message CM_CANCELMODE;
I found this using my expert skills (or looking at some third party
components we use and putting breakpoints in) ;-)
I had tried this earlier but my component actually creates a child
component when expanded and I needed to better provide communication
between them. I am not an expert component creator (far from it) but
what I have is both components checking for this event and using the
ScreenToClient code provided by Todd to ensure the mouse isn't within
either component. If not it closes the 'component'.
CM_CANCELMODE and its friend WM_CANCELMODE are really strangely
described my MS and others as 'providing special functionality in
certain circumstances' or some such. But essentially it seems to be
when a non focusable control or window is selected.
Will test further but it seems this has hit the nail on the head. A big
thanks to all who have contributed.
Rob Martin
Software Engineer
phone +64 03 377 0495
fax +64 03 377 0496
web www.chreos.com
Wild Software Ltd
Robert martin wrote:
> Hi
>
> Haven't tried it yet but the help (D6) says MouseCapture is about
> handling drag and drop actions.
> Rob Martin
> Software Engineer
>
> phone +64 03 377 0495
> fax +64 03 377 0496
> web www.chreos.com
>
> Wild Software Ltd
>
>
>
> Todd Martin wrote:
>> Hi Robert
>>
>> Try using MouseCapture.
>>
>> Todd.
>>
>> ----- Original Message ----- From: "Robert martin" <rob at wildsoft.co.nz>
>> To: "NZ Borland Developers Group - Delphi List" <delphi at ns3.123.co.nz>
>> Sent: Tuesday, September 05, 2006 1:17 PM
>> Subject: Re: [DUG] Component creation
>>
>>
>>> Hi Todd
>>>
>>> I would love to do this but the WM_LBUTTONDOWN message only triggers
>>> when clicking in my component (not outside) so It is pretty
>>> useless. I know I could override the forms events and do something
>>> but as this is a component (to be used in many forms / applications)
>>> that isn't feasible.
>>>
>>> The frustrating thing is that TComboBox (and lots of other combos)
>>> already do this. If the combo is dropped down, clicking on the form
>>> closes the drop down list. I just cant see code that does it !
>>>
>>>
>>> Rob Martin
>>> Software Engineer
>>>
>>> phone +64 03 377 0495
>>> fax +64 03 377 0496
>>> web www.chreos.com
>>>
>>> Wild Software Ltd
>>>
>>>
>>>
>>> Todd Martin wrote:
>>>> Hi Wayne
>>>>
>>>> The general idea is to trap the MouseDown event on your own
>>>> component and check the position of the mouse,
>>>> Control.ScreenToClient(Mouse.CursorPos),
>>>> when you do. If the cursor is outside the boundary of your control,
>>>> perform the clean up operation.
>>>>
>>>> If the user clicks on a focusable component, the focus shifts to
>>>> that object and the MouseDown event is not fired, so instead you
>>>> perform your clean up in your component's OnExit event.
>>>>
>>>> Todd.
>>>>
>>>> ----- Original Message ----- From: "Wayne Roser"
>>>> <rr at kristin.school.nz>
>>>> To: "NZ Borland Developers Group - Delphi List" <delphi at ns3.123.co.nz>
>>>> Cc: <delphi at ns3.123.co.nz>
>>>> Sent: Tuesday, September 05, 2006 12:05 PM
>>>> Subject: Re: Re: [DUG] Component creation
>>>>
>>>>
>>>>> Hi Gary
>>>>> 1. Am I correct in thinking that I would need to trap mousedown on
>>>>> every non-focusable object and
>>>>> call MyMouseDown for each TEdit1 that might have focus?
>>>>> 2. Is this the usual way to pass on the message. (I called the
>>>>> component a TFocusEdit)
>>>>>
>>>>> procedure TForm1.Panel1MouseDown(Sender: TObject; Button:
>>>>> TMouseButton; Shift: TShiftState; X, Y:
>>>>> Integer);
>>>>> var
>>>>> AMessage: TWMLButtonDown;
>>>>> begin
>>>>> FocusEdit1.MyMousedown(AMessage);
>>>>> //All other FocusEdits and FocusCombos etc get a MyMousedown
>>>>> here; recursion?
>>>>> end;
>>>>>
>>>>> Wayne
>>>>>
>>>>> NZ Borland Developers Group - Delphi List <delphi at ns3.123.co.nz>
>>>>> on Tuesday, 5 September 2006 at
>>>>> 11:37 a.m. +0000 wrote:
>>>>>> [Reply]
>>>>>>
>>>>>> HI Rob et all,
>>>>>>
>>>>>> Here's a mod to the previous code that makes the change when you
>>>>>> click on the form.
>>>>>>
>>>>>> Note that when you click off the component on to a non-focusable
>>>>>> object, the original component
>>>>>> still has focus, so you can trap the mousedown event and go from
>>>>>> there.
>>>>>>
>>>>>> If you click on a focusable component then focus leaves and you
>>>>>> can trap the onexit event.
>>>>>>
>>>>>> HTH
>>>>>>
>>>>>> cheers
>>>>>>
>>>>>> Gary
>>>>>>
>>>>>> unit Edit1;
>>>>>>
>>>>>> interface
>>>>>>
>>>>>> uses
>>>>>>
>>>>>> Messages,SysUtils, Classes, Controls, StdCtrls, Graphics;
>>>>>>
>>>>>> type
>>>>>>
>>>>>> TEdit1 = class(TEdit)
>>>>>>
>>>>>> private
>>>>>>
>>>>>> { Private declarations }
>>>>>>
>>>>>> procedure MyExit(var Message: TCMExit); message CM_EXIT;
>>>>>>
>>>>>> procedure MyEnter(var Message: TCMEnter); message CM_ENTER;
>>>>>>
>>>>>> procedure MyMousedown(var Message: TWMLButtonDown); message
>>>>>> WM_LBUTTONDOWN;
>>>>>>
>>>>>> protected
>>>>>>
>>>>>> { Protected declarations }
>>>>>>
>>>>>> public
>>>>>>
>>>>>> { Public declarations }
>>>>>>
>>>>>> published
>>>>>>
>>>>>> { Published declarations }
>>>>>>
>>>>>> end;
>>>>>>
>>>>>> procedure Register;
>>>>>>
>>>>>> implementation
>>>>>>
>>>>>> procedure Register;
>>>>>>
>>>>>> begin
>>>>>>
>>>>>> RegisterComponents('GCS', [TEdit1]);
>>>>>>
>>>>>> end;
>>>>>>
>>>>>> { TEdit1 }
>>>>>>
>>>>>> procedure TEdit1.MyEnter(var Message: TCMEnter);
>>>>>>
>>>>>> begin
>>>>>>
>>>>>> color:=clYellow;
>>>>>>
>>>>>> end;
>>>>>>
>>>>>> procedure TEdit1.MyExit(var Message: TCMExit);
>>>>>>
>>>>>> begin
>>>>>>
>>>>>> //
>>>>>>
>>>>>> color:=clWindow;
>>>>>>
>>>>>> end;
>>>>>>
>>>>>> procedure TEdit1.MyMousedown(var Message: TWMLButtonDown);
>>>>>>
>>>>>> begin
>>>>>>
>>>>>> color:=clWindow;
>>>>>>
>>>>>> inherited;
>>>>>>
>>>>>> end;
>>>>>>
>>>>>> end.
>>>>>>
>>>>>> At 10:55 on 5/09/2006 you wrote
>>>>>>
>>>>>>> To : delphi at ns3.123.co.nz
>>>>>>
>>>>>>> CC :
>>>>>>
>>>>>>> From: Robert martin, rob at wildsoft.co.nz
>>>>>>
>>>>>>> Content Type: text/plain
>>>>>>
>>>>>>> Attached:
>>>>>>
>>>>>>>
>>>>>>
>>>>>>> Thought I had tried it but my implementation mat have been
>>>>>>> wrong, will
>>>>>>
>>>>>>> have another crack :)
>>>>>>
>>>>>>>
>>>>>>
>>>>>>> Rob Martin
>>>>>>
>>>>>>> Software Engineer
>>>>>>
>>>>>>>
>>>>>>
>>>>>>> phone +64 03 377 0495
>>>>>>
>>>>>>> fax +64 03 377 0496
>>>>>>
>>>>>>> web www.chreos.com
>>>>>>
>>>>>>>
>>>>>>
>>>>>>> Wild Software Ltd
>>>>>>
>>>>>>>
>>>>>>
>>>>>>>
>>>>>>
>>>>>>>
>>>>>>
>>>>>>> James Sugrue wrote:
>>>>>>
>>>>>>>> WM_KILLFOCUS?
>>>>>>
>>>>>>>>
>>>>>>
>>>>>>>> Never used it, but apparently it can be a bit dodgy.
>>>>>>
>>>>>>>>
>>>>>>
>>>>>>>> -----Original Message-----
>>>>>>
>>>>>>>> From: delphi-bounces at ns3.123.co.nz
>>>>>>>> [mailto:delphi-bounces at ns3.123.co.nz] On
>>>>>>
>>>>>>>> Behalf Of Robert martin
>>>>>>
>>>>>>>> Sent: Tuesday, September 05, 2006 10:11 AM
>>>>>>
>>>>>>>> To: NZ Borland Developers Group - Delphi List
>>>>>>
>>>>>>>> Subject: [DUG] Component creation
>>>>>>
>>>>>>>>
>>>>>>
>>>>>>>> Hi
>>>>>>
>>>>>>>>
>>>>>>
>>>>>>>> I have a custom component that expands to show data. When focus
>>>>>>>> changes
>>>>>>
>>>>>>>> it reverts back to its shrunken state. However I also want it
>>>>>>>> to revert
>>>>>>
>>>>>>>> to small if the user clicks the mouse anywhere outside of the
>>>>>>>> component
>>>>>>
>>>>>>>> (the way that TComboBox does if it is dropped down).
>>>>>>
>>>>>>>>
>>>>>>
>>>>>>>> I assume I need to trap a windows message to handle this but I
>>>>>>>> just cant
>>>>>>
>>>>>>>> see which.
>>>>>>
>>>>>>>>
>>>>>>
>>>>>>>> Any suggestions ?
>>>>>>
>>>>>>>>
>>>>>>
>>>>>>>>
>>>>>>
>>>>>>> _______________________________________________
>>>>>>
>>>>>>> Delphi mailing list
>>>>>>
>>>>>>> Delphi at ns3.123.co.nz
>>>>>>
>>>>>>> http://ns3.123.co.nz/mailman/listinfo/delphi
>>>>>>
>>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> ----------------------------------------------------------------------------------------------------
>>>>>>
>>>>>>
>>>>>>
>>>>>> Gary Benner
>>>>>> e-Engineer, Lecturer, and Software Developer
>>>>>>
>>>>>> [ http://www.123.co.nz ]123 Internet Limited
>>>>>> [ http://www.waiariki.ac.nz ]Waiariki Institute of Technology
>>>>>> [ http://www.sunshinebags.co.nz ]Sunshine Garden Bag Co.
>>>>>> [ http://www.sommnet.com ]Sommnet.com Limited
>>>>>> Mob: 021 966 992
>>>>>> Email: [ mailto:gary at 123.co.nz ]gary at 123.co.nz
>>>>>>
>>>>>>
>>>>>>
>>>>>> Ref#: 41006
>>>>>>
>>>>>> _______________________________________________
>>>>>> Delphi mailing list
>>>>>> Delphi at ns3.123.co.nz
>>>>>> http://ns3.123.co.nz/mailman/listinfo/delphi
>>>>>
>>>>>
>>>>> _______________________________________________
>>>>> Delphi mailing list
>>>>> Delphi at ns3.123.co.nz
>>>>> http://ns3.123.co.nz/mailman/listinfo/delphi
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> No virus found in this incoming message.
>>>>> Checked by AVG Free Edition.
>>>>> Version: 7.1.405 / Virus Database: 268.11.7/432 - Release Date:
>>>>> 29/08/2006
>>>>>
>>>>>
>>>>
>>>>
>>>>
>>> _______________________________________________
>>> Delphi mailing list
>>> Delphi at ns3.123.co.nz
>>> http://ns3.123.co.nz/mailman/listinfo/delphi
>>>
>>>
>>>
>>> --
>>> No virus found in this incoming message.
>>> Checked by AVG Free Edition.
>>> Version: 7.1.405 / Virus Database: 268.11.7/432 - Release Date:
>>> 29/08/2006
>>>
>>
>>
>>
> _______________________________________________
> Delphi mailing list
> Delphi at ns3.123.co.nz
> http://ns3.123.co.nz/mailman/listinfo/delphi
>
More information about the Delphi
mailing list