Dragging a window without using the title bar.
Posted on 1998-11-17
Dragging a window without using the title bar is easy enough, BUT it's not quite that simple.
I have a form that contains only a TGuage and a TPopupMenu. The popup menu is linked to the TGauge and modifies certain parameters of the gauge (font, type, etc) and this works fine when you right click on the gauge, but if I use the code below to allow dragging of the form by clicking anywhere, the popup menu stops working.
procedure TForm1.WMNCHitTest( var Msg : TWMNCHitTest );
if htClient = Msg.Result
Msg.Result := htCaption;
Can anyone tell me how to have both the popup menu and being able to drag the window by clicking on the gauge? I've tried everything I can think of.... thanks in advance.