DrawGrid und gedrückte Maustaste

[Luckie]

So geht es bei einem StringGrid:

Delphi-Quellcode:

procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  Row, Col: Longint;
begin
  if ssLeft in Shift then
  begin
    StringGrid1.MouseToCell(x, y, Col, Row);
    if (Col <> -1) and (Row <> -1) then
      StringGrid1.Cells[Col, Row] := 'foobar';
  end;
end;

Bei einem Drawgrid sollte es entsprechend gehen.