| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3273416
建立时间:2005年6月6日 |
| |
|
 advSTRINGGRID加下列列表框combobox
软件技术
吕向阳 发表于 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; |
|
|