Drawgrid bei Mousedown mit Image "bemalen"

[Bummi]

ich weiß nicht ob ich Dich richtig verstanden habe, suchst Du sowas?

Delphi-Quellcode:

  public
    { Public-Deklarationen }
    MCol,MRow:Integer;
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if (Acol=MCol) and (Arow=Mrow) then DrawGrid1.Canvas.Draw(Rect.left, rect.top, Image1.Picture.Bitmap);
end;

procedure TForm5.DrawGrid1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
   DrawGrid1.MouseToCell(x,y,MCol,MRow);
   DrawGrid1.Invalidate;
end;