Form ohne Titelleiste resizen

[Aya]

Hi,

er kann doch einfach das OnMouseMove Event vom Image benutzen:

Delphi-Quellcode:

var
  Form1: TForm1;
  Move=true: boolean;
  mx, my: Integer;

implementation

{$R *.dfm}

procedure TForm1.ImageMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Move=true:=true;
  mx:=x;
  my:=y;
end;

procedure TForm1.ImageMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Move=true:=false;
end;

procedure TForm1.ImageMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Move=true then begin
    Form1.Top:=Mouse.CursorPos.Y-my;
    Form1.Left:=Mouse.CursorPos.X-mx;
  end;
end;

Für das Resize im grunde genauso.. nur halt mit Width/Height des Forms verändern.

Au'revoir,
Aya~