K210.ORG

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs;

 

type

  TForm1 = class(TForm)

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

    procedure WMNCHitTest(var msg: TWMNCHitTest); message wm_NCHitTest;

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

{ TForm1 }

 

procedure TForm1.WMNCHitTest(var msg: TWMNCHitTest);

const

  Tolerance = 5;

var

  P: TPoint;

  OverRight: Boolean;

  OverLeft: Boolean;

  OverTop: Boolean;

  OverBottom: Boolean;

begin

  with Msg do

  begin

    P := ScreenToClient(Point(XPos, YPos));

    OverRight := Abs(P.x - Width) < Tolerance;

    OverLeft := Abs(P.x) < Tolerance;

    OverTop := Abs(P.y) < Tolerance;

    OverBottom := Abs(P.y - Height) < Tolerance;

    if (Abs(P.x) < 20) and (Abs(P.y) < 20) then

      Result := HTTOPLEFT

    else if (Abs(P.x - Width) < 20) and (Abs(P.y) < 20) then

      Result := HTTOPRIGHT

    else if (Abs(P.x - Width) < 30) and (Abs(P.y - Height) < 30) then

      Result := HTBOTTOMRIGHT

    else if (Abs(P.x) < 30) and (Abs(P.y - Height) < 30) then

      Result := HTBOTTOMLEFT

    else if OverRight then

    begin

      if OverTop then

        Result := HTTOPRIGHT

      else if OverBottom then

        Result := HTBOTTOMRIGHT

      else

        Result := HTRIGHT;

    end

    else if OverLeft then

    begin

      if OverTop then

        Result := HTTOPLEFT

      else if OverBottom then

        Result := HTBOTTOMLEFT

      else

        Result := HTLEFT;

    end

    else if OverTop then

      Result := HTTOP

    else if OverBottom then

      Result := HTBOTTOM

    else

      Result := HTCLIENT;

  end;

 

end;

 

procedure TForm1.FormCreate(Sender: TObject);

begin

   borderstyle:=bsNone;

end;

 

end.