TForm im aussehn ändern?

[MSSSSM]

ist zwar alt aber...

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
  var p:TPoint;
begin
if [ssLeft] = Shift then
  begin
    p:=self.ClientToScreen(Point(x,y));
    self.Left:=p.X;
    self.Top:=p.Y;
  end;

end;

da gibt leider nur nen nachteil