Mega Code Archive

 

Categories / Delphi / Forms

 

Moving a form, using ints none client area

Title: Moving a form, using int's none client area Hi, you could write a message handler for Wm_NCHITTEST message to do that : In the private section of decleration of the form : private procedure HitTest(Var Mes : TMessage);message Wm_NcHitTest; And in implementation : procedure HitTest(Var Mes : TMessage); begin inherited; if Mes.Result=HtClient then Mes.Result:=HtCaption; end;