我现在是用一个树和DBGrid组键,我要做成点击数控中的表,然后在DBGrid中显示出数据和表头,因为有许多表,我就用语句一个一个的设置Title和居中显示,感觉太麻烦,还有其他方法吗?还有,我怎么让DBGrid的表格是下拉的,可以选择所需要的值,这个值是从另一个表中读取的,同时是否能够设置存储的值和显示的值,请各位大侠帮帮小弟
解决方案 »
- TApplication类中有方法:OnTaskbar吗?
- 请问如何让ListView中被选中的纪录以突出的颜色显示?
- 老子今天24了,按照传统,散分。
- 一个关于浮点数的问题!
- c环境:test(char* aa)==delphi环境:test(var aa:char)????
- 用Html Help Workshop 如何在窗口上加上‘上一步’、‘下一步’、‘前进’、‘后退’的图标按钮?
- 如何修改单击TCombobox的小三角按钮的缺省过程?
- 如何去掉DELPHI导出到EXCEL后合并EXCEL表格的单元格时弹出的确认合并信息框?(急)
- treeview做菜单一般用怎么事件实现?
- 关于日期的问题,请指教
- 简单问题
- 如何在EDIT中既限制只能输入数字又保证能输入小数?在线等~~~
with DBGridEh1 do
begin
SelectedField.FieldName :='Field1';
I := SelectedIndex;
with AdoQuery1 do
begin
close;
sql.clear ;
sql.add(' select FieldMc from DictTable1 ');
open;
first;
Columns[i].KeyList.Clear;
Columns[i].picklist.Clear;
while not eof do
begin
Columns[I].KeyList.Add(fieldbyname('FieldMc').AsString);
Columns[I].PickList.Add(fieldbyname('FieldMc').AsString);
next;
end;
end;
Columns[i].AutoDropDown := true;
SelectedField := Columns[i].Field;
end;