随笔分类 -  DevExpress

摘要:procedure TFormExportExcel.Button2Click(Sender: TObject); //导出 var SaveDialog: TSaveDialog; XLS: TXLSReadWriteII5; i: Integer; savaPath: string; begin SaveDialog := TSaveDialog.Create(nil... 阅读全文
posted @ 2018-08-01 15:02 夏天的西瓜君 阅读(560) 评论(0) 推荐(1)
摘要:{通过cxgrid 表格单击事件控制单元格是否可以编辑。如下所示,当单击到company这个单元格时,判断fruit单元格的内容,然后控制整个表格的编辑。(或则控制某些列是否可以编辑)}procedure Tform.cxGrid_testDBTableView1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxG... 阅读全文
posted @ 2018-07-26 16:10 夏天的西瓜君 阅读(636) 评论(0) 推荐(0)
摘要:procedure TForm11.Button5Click(Sender: TObject); var getPath: string; setPath: string; getstream, setstream: TFileStream; num, n: Integer; buf: PByte; bufsize, block: Integer; begin get... 阅读全文
posted @ 2018-06-26 10:27 夏天的西瓜君
摘要:procedure TForm11.Button2Click(Sender: TObject); begin dxGaugeControl1DigitalScale1.Value := '1234'; end; 阅读全文
posted @ 2018-06-26 09:11 夏天的西瓜君
摘要:procedure TForm11.FormCreate(Sender: TObject); begin dxSkinController1.NativeStyle := False; dxSkinController1.SkinName := 'coffee'; end; 阅读全文
posted @ 2018-06-25 16:41 夏天的西瓜君 阅读(406) 评论(0) 推荐(0)
摘要:功能跟kbmtable 内存表差不多。 阅读全文
posted @ 2018-06-21 14:42 夏天的西瓜君 阅读(621) 评论(0) 推荐(0)
摘要:cxSplitter1.CloseSplitter; //收缩 cxSplitter1.OpenSplitter; //展开 阅读全文
posted @ 2017-11-30 09:44 夏天的西瓜君 阅读(283) 评论(0) 推荐(0)
摘要:type TMyForm_test = class(TForm) cxpgcntrl1: TcxPageControl; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private { Private declarations } publ... 阅读全文
posted @ 2017-11-17 17:17 夏天的西瓜君 阅读(1029) 评论(0) 推荐(0)
摘要:TCXGRID控件: 属性: ActiveLevel: 当前层 BorderStyle: 窗口风格 Color: 颜色 FocusedView: 当前View; Font: 字体 LevelTabs: 类似PageControls头设置 CaptionAlgnment:标题对齐方式 Images:图 阅读全文
posted @ 2017-10-31 11:30 夏天的西瓜君 阅读(521) 评论(0) 推荐(0)
摘要:procedure Twms_system_Notice_Show.cxGrid_attachAllFilesDBTableView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var AHitTest: TcxCustomGridHitTest; FTrackItem: TcxCustomGridTabl... 阅读全文
posted @ 2017-10-11 11:12 夏天的西瓜君 阅读(356) 评论(0) 推荐(0)
摘要:var cxlayoutitemtag: Integer; labeltag: Integer; listPutFileName: TStringList; procedure TFormTestPutFiles.cxbtn_putfilesClick(Sender: TObject); begin if OpenDialog1.Execute then begin ... 阅读全文
posted @ 2017-09-14 18:25 夏天的西瓜君 阅读(314) 评论(0) 推荐(0)
摘要:cxgridviewtest1.SortOrder := soNone; //取消排序 cxgridviewtest1.SortOrder := soAscending; //升序 cxgridviewtest1.SortOrder := soDescending; //降序 阅读全文
posted @ 2017-05-04 12:09 夏天的西瓜君 阅读(1235) 评论(0) 推荐(0)
摘要:procedure Uyxmdo.yxmdatagridDBTableView1selectHeaderClick( //增加单击select标题,可以进行全选和反选操作 Sender: TObject);begin inherited; if Self.yxmdatagridDBTableView 阅读全文
posted @ 2017-04-06 10:03 夏天的西瓜君 阅读(364) 评论(0) 推荐(0)
摘要:取TcxLookupComboBox下拉列表中各项的内容 Properties.DataController.Values包含了所有内容,如果要取得当前选择行的内容,用以下代码 阅读全文
posted @ 2017-03-21 13:53 夏天的西瓜君 阅读(1691) 评论(0) 推荐(0)
摘要:把cxGrid的view的datacontroller属性下的datamodecontroller下的GridMode设置为true 在设置GridModeBufferCount为每页显示的行数就可以了 不出现滚动主要是注意控制界面宽度,然后设置GridModeBufferCount为适当值就可以了 阅读全文
posted @ 2017-03-14 13:06 夏天的西瓜君 阅读(1789) 评论(0) 推荐(0)
摘要:format := '数目#.####'; 阅读全文
posted @ 2017-03-11 14:38 夏天的西瓜君 阅读(571) 评论(0) 推荐(0)
摘要:TdxLayoutGroup 属性的 LayoutDirection :ldvertical,ldtabbed(显示tab页),ldhorizontal 阅读全文
posted @ 2016-11-22 15:04 夏天的西瓜君 阅读(316) 评论(0) 推荐(0)