P
panyongze
Unregistered / Unconfirmed
GUEST, unregistred user!
挣点分不容易呀!
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;
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;