Re: Drag&Drop ohne boarder?
25. Sep 2007, 14:10
Der Fehler liegt in Zeile 30.
Procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
Da muss das 'TForm1.' weg.
Anschließend musst Du noch über den Objektinspektor dem Ereignis 'OnMouseDown' Deiner Form1 die Methode 'FormMouseDown' zuweisen.
|