procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
Caption := Format('Col:%d,Row:%d', [TDrawGrid(Sender).Col, TDrawGrid(Sender).Row]);
//TDrawGrid(Sender).Row是相对的
//建议用TDBGrid(Sender).DataSource.DataSet.RecNo
end;
begin
Caption := Format('Col:%d,Row:%d', [TDrawGrid(Sender).Col, TDrawGrid(Sender).Row]);
//TDrawGrid(Sender).Row是相对的
//建议用TDBGrid(Sender).DataSource.DataSet.RecNo
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货