public
{ Public declarations }
procedure WMNCHitTest(var msg : TWMNCHitTest); message WM_NCHitTest;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);
begin
inherited;
if (msg.Result = htClient) then
if Msg.YPos <>
skip to main |
skip to sidebar
This is Free. This is Nice. This is for you !
