Drag&Drop ohne boarder?

[s-off]

Das passiert, wenn eine Methode zwar deklariert, aber nicht implementiert ist.

Deklaration

Delphi-Quellcode:

Type
   TForm1 = class(TForm)
      [...]
      Procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); 
      [...]
   end;

Implementierung

Delphi-Quellcode:

Procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Begin
   ReleaseCapture;
   Form1.Perform(WM_SYSCOMMAND, $F012, 0);
End;