在COLUMNS中设置PICKLIST属性或是在代码里面动态添加!
下面是 ihihonline(小小->爱被下载中……) 的例子。
procedure Tm_jsgzglForm.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.SelectedField.DisplayName = 'xm' then
Key := #0;
end;
procedure Tm_jsgzglForm.SpeedButton3Click(Sender: TObject);
var
P : String;
begin
with DataModuleForm.jsgzQuery2 do
begin
DBGrid1.Columns[1].PickList.Clear;
Close;
with SQL do
begin
Clear;
Add('select distinct .. from TableName');//.. 是你相要的字段
end;
Open;
First;
while Not (DataModuleForm.jsgzQuery2.Eof) do
begin
DBGrid1.Columns[1].PickList.Add(FieldByName('..').AsString);
Next;
end;
end;