Drag + Shape på formen

Måske du kan bruge dette, hentet fra www.pythia.dk

"Rund" formular
Hvis du altid har gået og ønsket dig at efterligne Microsofts (tm) analoge ur, så er her den fix og færdige kode til at lave en rund form.

procedure TForm1.FormCreate(Sender: TObject);
var
  Rgn: hRgn;
  BorderSizeW, BorderSizeH, CaptionHeight: integer;
begin
  BorderSizeW := GetSystemMetrics(SM_CXSIZEFRAME);
  BorderSizeH := GetSystemMetrics(SM_CYSIZEFRAME);
  CaptionSize := GetSystemMetrics(SM_CYCAPTION);
  Rgn := CreateEllipticRgn(BorderSizeW, BorderSizeH + CaptionHeight,
                          ClientWidth, ClientHeight);
  SetWindowRgn(Handle, Rgn, false);
end;

Den bliver vel HELT rund... der er ingen koordinater i den...

Nej det bliver til en Elipse, så du må kunne nøjes med runde hjørner

i.flg delphi hjælp på CreateEllipticRgn

In Microsoft® Windows®, a region is a rectangle, polygon, or ellipse (or a combination of two or more of these shapes) that can be filled, painted, inverted, framed, and used to perform hit testing (testing for the cursor location).

Oki prøver når jeg kommer hjem...
Det var egentlig også mest den med drag jeg gerne ville have svar på...

Også fra Pythia

Flyt en form uden caption
For at lave en applikation, der tillader brugeren at flytte rundt på en TForm uden at anvende en form med caption, så kan du anvende følgende kode. Den fungerer ved at opfange den message der afsendes ved mousehit, og derefter lade Windows tro at der i virkeligheden er tale om et klik i formens caption.

type
  TForm1 = class(TForm)
  ...
  private
    procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
  end;

...

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;                   
  if M.Result = htClient then  { er klikket i "client area"?        }
    M.Result := htCaption;      { så lad windows tro der er tale om  }
                                { et klik i caption.                }
end;