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;