Don't Be a Square

By Al Williams

Dr. Dobb's Sourcebook January/February 1997

(a)	procedure WMNCHitTest(
	  var Msg: TMessage); message   
	    WM_NCHITTEST;
(b)	procedure TForm1.WMNCHitTest(var Msg: 
	TMessage);
	begin
	  inherited;
	  if Msg.Result = HTCLIENT then Msg.Result:=HTCAPTION;
	end;

Example 3: (a) Defining a procedure with the message attribute; (b) returning a value from message processing.

Back to Article