怎样在 Drawgrid 空间上画圆画方(100分)

那位大虾知道如何在 Drawgrid 上画画,可画圆,刻画方

OnOwnerDraw事件中自己画。

var CurCol,CurRow:integer;//用与记录当前行、列

procedure TfrmMain.DrawGridMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TDrawGrid(Sender).MouseToCell(X, Y,CurCol,CurRow);
end;

procedure TfrmMain.DrawGridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Text:String;
begin
with Sender as TDrawGrid do
begin
//ImageList1.Draw(Canvas,Rect.Left,Rect.Top,图形序号数组[ACol,ARow]);
Canvas.Ellipse(...);//画圆
Canvas.Rectangle(...);//画方
Canvas.Font.Size:=9;
Canvas.Font.Color:=clBlue;
Text:='要写的字';
Canvas.TextOut(Rect.Left,Rect.Top,Text);//写字
end;
end;

多人接受答案了。