Canvas方法,你试试下段就知道了。procedure TForm1.Button1Click(Sender: TObject);
begin
with TCanvas.Create do
begin
Handle:=GetDC(StringGrid1.Handle);
Brush.Color:=clBlue;
Pen.Color:=clRed;
Rectangle(0,0,100,100);
Free;
end;
end;
begin
with TCanvas.Create do
begin
Handle:=GetDC(StringGrid1.Handle);
Brush.Color:=clBlue;
Pen.Color:=clRed;
Rectangle(0,0,100,100);
Free;
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货