在DBGrid1CellClick事件里添加代码: procedure TForm1.DBGrid1CellClick(Column: TColumn); var s:string; begin s:=dbgrid1.SelectedField.AsString; showmessage(s); end;
procedure TForm1.DBGrid1CellClick(Column: TColumn); var s:string; begin s:=dbgrid1.SelectedField.AsString; label1.caption:=s; end;
你把表中的数据取出来显示到label中不就可以了吗
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var s:string;
begin
s:=dbgrid1.SelectedField.AsString;
showmessage(s);
end;
var s:string;
begin
s:=dbgrid1.SelectedField.AsString;
label1.caption:=s;
end;
label1.caption=adotable1.fieldbyname('字段名‘).float//字段类型为float,int等类型
一直循环着动态显示在label中