Resize Form

Løsningen kan du finde på http://www.delphicorner.f9.co.uk/tips/forms/forms2.htm
Jeg har selv brugt den engang. Og den virker udemærket.

Er er et ret primitivt eksempel uden nogen særlige API kald eller lign.
Grunden til at det fylder så meget er at der er taget hensyn til om man trækker i bunden, højre eller begge kanter.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if ((x > form1.clientwidth-5) and (y > form1.clientheight-5)) then
    but:=1
  else if (x > form1.clientwidth-5) then
    but:=2
  else if (y > form1.clientheight-5) then
    but:=3;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if ((x > form1.clientwidth-5) and (y > form1.clientheight-5)) then
    form1.cursor:=crSizeNWSE
  else if (x > form1.clientwidth-5) then
    form1.cursor:=crSizeWE
  else if (y > form1.clientheight-5) then
    form1.cursor:=crSizeNS
  else form1.cursor:=crDefault;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  but:=0;
end;

procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
var
  p: TPoint;
begin
  done:=false;

  GetCursorPos(p);
  case but of
    1: begin
        form1.width:=p.x-form1.left;
        form1.height:=p.y-form1.top;
      end;
    2: form1.width:=p.x-form1.left;
    3: form1.height:=p.y-form1.top;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnIdle:=Idle;
end;

MVH
abpdk

Det var godt nok er svar...

Den side som makse henviste til, var ikke lige til at overskue på en søndag, så jeg giver pointene til abpdk.

Mange tak til jer begge to anyway! :-)

CTRL C - CTRL V så kører det. :)