Don't Be a Square
By Al Williams
Dr. Dobb's Sourcebook January/February 1997
<b>(a)</b> procedure WMNCHitTest( var Msg: TMessage); message WM_NCHITTEST; <b>(b)</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.