高分请教(快要急死了)(200分)

  • 主题发起人 主题发起人 ykx
  • 开始时间 开始时间
挣点分不容易呀!
procedure TForm1.Button1Click(Sender: TObject);
var
rect:TRect;
begin
rect:=StringGrid1.cellrect(1,1);
StringGrid1.Canvas.Brush.Color:=clBackground;
StringGrid1.Canvas.FillRect(rect);
StringGrid1.Canvas.TextOut(rect.Left+10,rect.top+2,StringGrid1.Cells[1,1]);
end;
 
多人接受答案了。
 
后退
顶部