move form

glemte lige en ting.
image1 er sat til allclient.39 andre images er knapper.

Din løsning vil ikke lade komponter der ikke er nedarvet fra TWinControl få mulighed for at virke (de bliver bare regnet som en del af baggrunden af din form.

En anden løsning, kaunne være at putte følgende i en OnMouseDown event på din form:

Const
  SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  With Sender as tWinControl Do Perform(WM_SYSCOMMAND,SC_DRAGMOVE,0);
end;

Den virker

MVH Claus Ziegler
ZieglerSoft

den virker!! kun hvis der ikke er image
på formen.Har prøvet at sætte den onmousedown på Image, men så får jeg en fejlmelding (invalid class typecast)
når Image er sat til allclient er det image man 'dragger'.

Ja, der virker den ikke. Du kunne måske sende den videre til formen nedenunder i onMouseDown på din Image (Det virker fordi du allerede er på formen). Som f.eks. således:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
Const
  SC_DRAGMOVE = $F012;
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND,SC_DRAGMOVE,0);
end;

Den skulle gerne gøre hvad du ønsker. Jeg overså at Image1 var sat til alClient

virker som det skal...
takker
stone