advSTRINGGRID加下列列表框combobox

从blog.org的我的原博客中迁入

发表时间：2008-1-2 16:08:18

1.advstringgrid的相应事件有两个

========

procedure TForm1.mxgridGetEditorType(Sender: TObject; ACol, ARow: Integer;
  var AEditor: TEditorType);
begin
  with mxgrid do
    if ACol = 2 then
    begin
      aEditor := edComboList;
      ClearComboString;
      ComboBox.Items.Add('bbb');
      ComboBox.Items.add('ccc');
      if MXGRID.Cells[ACOL, AROW] <> '' then
      begin
        MouseActions.DirectComboDrop := FALSE;
        MouseActions.DirectEdit := True;
      end
      else                
      begin
        MouseActions.DirectComboDrop := TRUE;
        MouseActions.DirectEdit := TRUE;
      end
    end;
end;
========

procedure TForm1.mxgridHasComboBox(Sender: TObject; ACol, ARow: Integer;
  var HasComboBox: Boolean);
begin
  HasComboBox := ((ACol = 2) and (mxgrid.Cells[2, ARow] <> ''));
end;

===========

2更改属性

option属性中goediting 设为true

=======复选

var
    i,j: Integer;
begin
    i := 1;
    j := AdvStringGrid1.RowCount;
    while (i < j) do begin
    if not AdvStringGrid1.RowSelect[i] then
        // do something ...
    Inc(i);
    end;
end;