procedure TForm1.StringGrid1DblClick(Sender: TObject);
var
str:String;
FRect:TRect;
begin
Str:= StringGrid1.Cells[StringGrid1.Col,StringGrid1.Row];
FRect:=StringGrid1.CellRect(StringGrid1.Col,StringGrid1.Row);
StringGrid1.Canvas.Brush.Color:=clRed;
StringGrid1.Canvas.Font.Color:=clWhite;
StringGrid1.Canvas.FillRect(FRect);
StringGrid1.Canvas.TextRect(FRect,Str);
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024