cxGrid的使用方法

end;

procedure TForm1.cxGrid1DBTableView1DBColumn1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin

if AViewInfo.EditViewInfo is TcxCustomCheckBoxViewInfo then

TcxCustomCheckBoxViewInfo(AViewInfo.EditViewInfo).State:= TcxCheckBoxState(CheckList(AViewInfo.GridRecord)); end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin

AList.Free; end;

procedure TForm1.cxGrid1DBTableView1CustomDrawCell(

Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;

AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean); begin

with AViewInfo do

if CheckList(GridRecord) then

ACanvas.Brush.Color := clHighlight else

ACanvas.Brush.Color := clWindow; ACanvas.Font.Color := clBlack; end;

end.

//---------------cxGrid的Dfm属性 object cxGrid1: TcxGrid Left = 0 Top = 0

Width = 688 Height = 446 Align = alClient TabOrder = 0

object cxGrid1DBTableView1: TcxGridDBTableView OnMouseDown = cxGrid1DBTableView1MouseDown NavigatorButtons.ConfirmDelete = False

OnCustomDrawCell = cxGrid1DBTableView1CustomDrawCell DataController.DataSource = DataSource1 DataController.DetailKeyFieldNames = CustNo DataController.KeyFieldNames = CustNo

DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsSelection.MultiSelect = True

object cxGrid1DBTableView1CustNo: TcxGridDBColumn DataBinding.FieldName = CustNo end

object cxGrid1DBTableView1DBColumn1: TcxGridDBColumn Caption = CheckColumn

PropertiesClassName = TcxCheckBoxProperties Properties.DisplayUnchecked = False

OnCustomDrawCell = cxGrid1DBTableView1DBColumn1CustomDrawCell Options.Editing = False Options.Filtering = False

Options.IncSearch = False

Options.ShowEditButtons = isebNever Options.Grouping = False Options.Sorting = False Width = 123

end

object cxGrid1DBTableView1Company: TcxGridDBColumn DataBinding.FieldName = Company end

object cxGrid1DBTableView1Addr1: TcxGridDBColumn DataBinding.FieldName = Addr1

end

object cxGrid1DBTableView1City: TcxGridDBColumn DataBinding.FieldName = City end

object cxGrid1DBTableView1State: TcxGridDBColumn DataBinding.FieldName = State end

object cxGrid1DBTableView1Country: TcxGridDBColumn DataBinding.FieldName = Country end end

object cxGrid1Level1: TcxGridLevel GridView = cxGrid1DBTableView1 end

end

cyblueboy83 发表于 2005-12-9 11:30:45

学习

hanlin2004 发表于 2005-12-9 13:14:52

我一般是这样取cxGrid选中的纪录的值的：

function TFrameAccount.GetSelectedID:variant; var

AccID: array of string; i, n: Integer;

Index: Integer; begin

n := cxGrid1DBTableView1.DataController.GetSelectedCount;

for i:=0 to n - 1 do begin

Index := cxGrid1DBTableView1.DataController.GetSelectedRowIndex(i); setlength(AccID, length(AccID) + 1);

AccID[High(AccID)] :=cxGrid1DBTableView1.DataController.GetRowValue(cxGrid1DBTableView1.DataController.GetRowInfo(Index),0); //这里的0是Grid中列的索引，0表示第一个列绑定的字段 end;

result := AccID; end;

DevExpress cxGrid的应用

在cxGrid下建立view，取名myView

1. 允许选择多条记录(MultiSelect)：

myView--OptionsSelection--MultiSelect 设成true

2. 取得选定行的值：

myView->DataController->FocusedRowIndex 获得选择行的行号

myView->DataController->Values[myView->DataController->FocusedRowIndex+1][0] 选择的行的第一列的值

myView->DataController->GetSelectedCount() 选择多行的行数 myView->DataController->GetSelectedRowIndex(行号n) 所选多行里的第n行

3. VerticalGrid的单元值

控件->Properties->Value 获得单元的值，此值为variant类型，需要强制转换成AnsiString

4. VerticalGrid里的CheckGroup的使用

得到的值为: (;1,3,8)此为选择了选项里的第1、3、8项 5. VerticalGrid里验证

TcxEditorRow的properties->EditorProperties选MaskEdit，然后再选下面的MaskEdit和MaskKind，可以限定输入的东西

6. TcxPopupEdit控件的应用，Form1加一个控件cxPopupEdit1

属性里PopupControl指向你要弹出的窗体Form2，Form2里添加一个按钮，说明文件里添加

[Copy to clipboard] [ - ]

CODE:

private: // User declarations AnsiString FEditValue;

TcxPopupEdit *FPopupEdit; 。。。 public:

__property AnsiString EditValue = {read=FEditValue,write=FEditValue};

__property TcxPopupEdit *PopupEdit = {read=FPopupEdit, write=FPopupEdit};

在Form1的cxPopupEdit1控件的事件里添加下面的代码 [Copy to clipboard] [ - ]

CODE:

//---------------------------------------------------------------------------

void __fastcall TForm1::cxPopupEdit1PropertiesInitPopup(TObject *Sender) {

Form2->PopupEdit = (TcxPopupEdit*)Sender; }

//---------------------------------------------------------------------------

void __fastcall TForm1::cxPopupEdit1PropertiesCloseUp(TObject *Sender) {

cxPopupEdit1->EditValue = Form2->EditValue; }

在Form1的按钮事件里可以加入 [Copy to clipboard] [ - ] CODE:

FEditValue = \嘻嘻哈哈\ FAccepted = AAccepted;

FPopupEdit->DroppedDown = false;

//---------------------------------------------------------------------------

7. TcxGrid控件去掉上面的\栏 在控件的view的OptionsView属性里有一个GroupByBox，设为false即可

呵呵，写的有些乱，自己试着做吧

选择了若干条记录(MultiSelect)

选择了若干条记录(MultiSelect),现在要把这些选中的记录从该数据库复制到另一库中，该如何做？ 可以参考。我的程序是打印选择的记录 ， 你可以保存到其它表就好。 var i:integer; begin