Dynamisch erstellte Form per gedrückter Maustaste verschiebe

[TBx]

Hallo!

Du must Dir in der Klasse Deiner dynamisch generierten Form eine Prozedur definieren, die Du als Eventhandler dem OnMouseDown Deiner Form zuweist.

Beispiel:

Deklaration:

Delphi-Quellcode:

TMyForm = Class (TForm)
    procedure FormMouseDown(Sender  : TObject; 
                            Button  : TMouseButton;
                            Shift   : TShiftState; 
                            X, 
                            Y       : Integer);  
  public
    constructor Create (AOwner : TComponent); override;
end;

Implementation:

Delphi-Quellcode:

procedure TMyForm.FormMouseDown(Sender  : TObject; 
                                Button  : TMouseButton;
                                Shift   : TShiftState; 
                                X, 
                                Y       : Integer);
begin
  ReleaseCapture;
  Perform(wm_syscommand, $f012, 0);
end;

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  OnMouseDown := FormMouseDown
end;

So als grober Überblick.

Hope it helps

onlinekater