[lazarus] Event Click on Form

Hello I want to detect when my mouse click on my form then I can drag It. In Delphi programming I can used this code. procedure TLoginForm.NCHitTest(var _Msg:TMessage); begin inherited; if _Msg.Result=HTCLIENT then _Msg.Result:=HTCAPTION; end; But in Lazarus I can find HTCLIENT and

Re: [lazarus] Event Click on Form

This code looks *very* windows specific. To detect mouse clicks there is already a cross-platform OnClick event for TForm. There are also OnMouseDown, OnMouseMove, OnMouseUp, etc, which may be better then OnClick to implement dragdrop I think there are also some drag drop specific events, but I