- 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 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
  | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||