Drag&Drop ohne boarder?

[suni]

Vielen Danke für deine Hilfe. Ich habe es genauso gemacht wie beschrieben. Jetzt bekomme ich auf einmal in der "Type" liste einen fehler =(
"Unsatisfied forward or external declaration: `TForm1.MouseDown´

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, TFlatProgressBarUnit,
  TFlatMemoUnit, TFlatButtonUnit, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    Image1: TImage;
    cap: TShape;
    bclose: TFlatButton;
    babout: TFlatButton;
    bmin: TFlatButton;
    FlatButton1: TFlatButton;
    FlatMemo1: TFlatMemo;
    FlatButton2: TFlatButton;
    FlatButton3: TFlatButton;
    FlatProgressBar1: TFlatProgressBar;
    Button2: TButton;

    procedure FlatButton1Click(Sender: TObject);
    procedure FlatButton3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure bcloseClick(Sender: TObject);
    procedure baboutClick(Sender: TObject);
 Fehler->Procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);