title: How to move a transparent form without border in Delphi?
body: <p>I already know and have used these methods to create a form without boders that can be moved.
  <a href="https://stackoverflow.com/questions/10921093/move-form-without-border-style">Move form without border style</a></p>
  
  <p>I'm using the WMNCHitTest override.
  The MouseDown event don't work at all.</p>
  
  <p>This form is very simple it is displaying a countdown, a number that changes very second and that's all. The number being painted using a big TLabel with big fonts.</p>
  
  <p>But I also made this form transparent by using Delphi's standard form properties.
  Now, if I try to click on the form to move it, the only area I can use is the lines drawing the changing numbers, even if they are not so thin, this is not practical.
  I'd like the user to be able to move the numbers to any position of the screen by clicking anywhere near the numbers, let's say inside a "0" or an "8".</p>
  
  <p>I'd think about drawing a transparent rectangle over the numbers and be that the clickable area, but the effect would be the same, the click would go throu.</p>
  
  <p>I know an application that does this, so it is possible, but how?</p>
  
  <pre><code>procedure TfrmCountDown.Timer1Timer(Sender: TObject);
  begin
    iCount := iCount - 1;
    lblTime.Caption := FormatFloat('00', iCount);
  end;
  
  procedure TfrmCountDown.FormCreate(Sender: TObject);
  begin
    iCount := 60;
    BorderStyle:=bsNone;
    Self.Color := clGray;
    Self.TransparentColor := true;
    Self.TransparentColorValue := clGray;
  end;
  
  procedure TfrmCountDown.WMNCHitTest(var Message: TWMNCHitTest);
  var
    Pt: TPoint;
  begin
    Pt := ScreenToClient(SmallPointToPoint(Message.Pos));
    if Pt.Y &lt; 160 then
      Message.Result := HTCAPTION
    else
      inherited;
  end;
  </code></pre>