procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin ShowMessage(StringGrid1.Cells[ACol,ARow]); end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin if CanSelect then showmessage(StringGrid1.Cells[ACol,ARow]); end;
procedure TForm1.StringGrid1Click(Sender: TObject); var strTemp:string; begin strTemp:=StringGrid1.Cells[2,StringGrid1.Row];//2 为列 ShowMessage(strTemp); end;
stringgrid的名字为sG_sample
var
Selval:string;
RowCount:integer;
begin
RowCount:=.Selection.top;
SelVal:=Sg_Sample.cells[2,Rowcount];
end;
stringgrid的名字为sG_sample
var
Selval:string;
RowCount:integer;
begin
RowCount:=.Selection.top;
SelVal:=Sg_Sample.cells[2,Rowcount];
end;
第3列的值:
stringgrid1.cells[2,stringgrid1.row];
你式式!
ARow: Integer; var CanSelect: Boolean);
begin
ShowMessage(StringGrid1.Cells[ACol,ARow]);
end;
ARow: Integer; var CanSelect: Boolean);
begin
if CanSelect then
showmessage(StringGrid1.Cells[ACol,ARow]);
end;
var
strTemp:string;
begin
strTemp:=StringGrid1.Cells[2,StringGrid1.Row];//2 为列
ShowMessage(strTemp);
end;