Flytte vinduet uden at bruge titlebaren

Dette kan du smide under Private

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

og dette skal bare smides ind et eller andet sted

procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if  M.Result = htClient then M.Result := htCaption;
end;

Dette er en procedure der snyder programmet til at tro at vinduet er en titlebar, og så kan man roligt fjerne sin titlebar :)

Tak, det virker perfekt.

Jeg testede lige og kan kunne heldigvis ikke flytte vinduet rundet, når man trykkede på en knap, men godt når man trykkede på et TImage.. Og der var lige hvad jeg havde brug for :)

:) jeg er glad for at jeg kunne hjælpe :)