4、 DrawDataCell事件是繪制單元格，當(dāng)獲得焦點(diǎn)網(wǎng)格所對應(yīng)的字段與組合框所對應(yīng)的字段一致時(shí)，移動(dòng)組合框到獲得焦點(diǎn)的網(wǎng)格上，并且 使組合框可視，從而達(dá)到在DBGrid指定列上顯示DBComboBox的功能。設(shè)置DBGrid1的OnDrawDataCell事件如下： procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState); begin if (gdFocused in State) then begin if (Field.FieldName = DBComboBox1.DataField ) then begin DBComboBox1.Left := Rect.Left + DBGrid1.Left; DBComboBox1.Top := Rect.Top + DBGrid1.top; DBComboBox1.Width := Rect.Right - Rect.Left; DBComboBox1.Height := Rect.Bottom - Rect.Top; DBComboBox1.Visible := True; end; end; end;
5、 DBGrid指定單元格未獲得焦點(diǎn)時(shí)不顯示DBComboBox，設(shè)置DBGrid1的OnColExit事件如下： procedure TForm1.DBGrid1ColExit(Sender: TObject); begin If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then begin DBComboBox1.Visible := false; end; end;
6、 當(dāng)DBGrid指定列獲得焦點(diǎn)時(shí)DrawDataCell事件只是繪制單元格，并顯示DBComboBox，但是DBComboBox并沒有獲得焦點(diǎn)，數(shù)據(jù)的輸入還是在單元格上進(jìn)行。在DBGrid1的KeyPress事件中調(diào)用SendMessage這個(gè) Windows API函數(shù)將數(shù)據(jù)輸入傳輸?shù)紻BComboBox上，從而達(dá)到在DBComboBox上進(jìn)行數(shù)據(jù)輸入。因此還要設(shè)置KeyPress事件如下： procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char); begin if (key < > chr(9)) then begin if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then begin DBComboBox1.SetFocus; SendMessage(DBComboBox1.Handle, WM_Char, Word(Key), 0); end; end; end;
