advstringgrid delphi ADVStringGrid怎么顯示下拉列表?
delphi ADVStringGrid怎么顯示下拉列表?讓ADVStringGrid組件顯示下拉列表,其步驟如下:1、設(shè)置DefaultEditor屬性為 edComboList,或者 設(shè)置Edit
delphi ADVStringGrid怎么顯示下拉列表?
讓ADVStringGrid組件顯示下拉列表,其步驟如下:
1、設(shè)置DefaultEditor屬性為 edComboList,或者 設(shè)置EditorType為edComboList。
2、提供列表選項。即給ADVStringGrid的Combobox.Items屬性賦值。示例代碼如下:procedure TfrmGroupUp.grdGetEditorType(Sender: TObject ACol, ARow: Integer var AEditor: TEditorType)begin case ACol of 4: //第5列 begin AEditor := edComboList //下拉列表 grd.Combobox.Items := cbbFangShi.Items //動態(tài)設(shè)置下拉列表選項 end endend
DELPHI中,怎么把Stringgrid中的數(shù)據(jù)存到數(shù)據(jù)庫里?
for i:=0 to stringgrid1.rowcount-1 do
begin
adoquery1.append
adoquery1.fieldbyname("字段名").asstring:=stringgrid1.cells[1,i]
........
adoquery1.post
end