//第一种方法 procedure TForm1.Button3Click(Sender: TObject); var s:string; begin s:=self.DBGridEh1.SelectedField.FieldName; self.Label1.Caption:=s; end; //第二种方法 procedure TForm1.DBGridEh1CellClick(Column: TColumnEh); var s:string; begin s:=Column.FieldName; self.Label1.Caption:=s; end;
//第一种方法
procedure TForm1.Button3Click(Sender: TObject);
var
s:string;
begin
s:=self.DBGridEh1.SelectedField.FieldName;
self.Label1.Caption:=s;
end;
//第二种方法
procedure TForm1.DBGridEh1CellClick(Column: TColumnEh);
var
s:string;
begin
s:=Column.FieldName;
self.Label1.Caption:=s;
end;