[DUG] Component creation

Wed Sep 6 08:52:16 NZST 2006

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