2D Array und MausPosition

[StefanDP]

Sorry!

probier mal folgendes:

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
//  SetRoundMode(rmDown);   // erstes kästchen wird zu 0|0
  SetRoundMode(rmUp);     // erstes Kästechen wird zu 1|1
  ShowMessage('X: ' + IntToStr(round(X/32)) + ', Y: ' + IntToStr(round(Y/32)));
end;