- procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
- Shift: TShiftState; X, Y: Integer);
- var cursorpos: tpoint;
- begin
- getcursorpos(cursorpos);
- mx:=x;
- my:=Y;
- end;
nochmal wegen dem bewegen... *grinz*Moderator: DGL-Team
|