- 博客(25)
- 资源 (2)
- 收藏
- 关注
RSS订阅转载 Delphi中拖动无边框窗口的5种方法
1.MouseMove事件中加入：// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017 , 0); 2.MouseDown事件中加入：// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE(Self.Handle,274,61458,0); 3.MouseDown事件...
2019-01-21 08:43:34
271
转载 cxgrid动态创建列
cxgrid动态创建列procedure TFrmRuleEdit.CreateCols;varColumn: TcxGridDBColumn;begincdsPowerPrj.First;while not cdsPowerPrj.Eof dobeginColumn := viewPower.CreateColumn;Column.Caption := cdsPowerPr...
2019-01-17 15:37:43
573
转载 cxGrid单元格获得输入焦点
cxGrid单元格获得输入焦点cxGrid1.SetFocus;cxGrid1DBTableView1.Controller.EditingController.ShowEdit(cxGrid1DBTableView1.DataController.GetItemByFieldName('goodsname'));
2019-01-17 15:36:45
637
转载 cxgrid回车移到下一个单元格
cxgrid回车移到下一个单元格cxgrid回车移到下一个单元格作用：表格式录入全键盘操作。设置cxgrid1Dbtableview1.optionsBehavior.goToNextCellOnEnter:=true;
2019-01-17 15:36:12
400
转载 cxgrid显示海量数据慢的解决
cxgrid显示海量数据在默认情况下，cxgrid显示几万条以上的数据会很慢。怎么办？下面的属性设为TRUE以后，速度飞快。但速度是快了，自动计算列的合计值这些功能却失效了，正所谓有得必有失...
2019-01-17 15:35:19
1408
转载 TcxDBTreeList导出EXCEL
TcxDBTreeList导出EXCELuses cxTLExportLink, cxDBTL function ExportExcel(tree: TcxDBTreeList; const fileName: string = '1.xls'): Boolean;var sd: TSaveDialog;begin Result := False; if not A...
2019-01-17 15:33:03
368
转载 Delphi CxGrid 用法详解说明
1. 去掉cxgrid中抬头的box,在tableview1的ptionsview的groupbybox=false;1.1类似PageControl显示解决：增加一个Level,将cxGrid1->RootLevelOptions->DetailTabsPosition设为dtpTop，然后相应的设置cxGrid1Level1,和cxGrid1Level2的Caption值...
2019-01-17 10:17:07
4850
原创 delphi cxgrid 添加分页
delphi cxgrid 添加分页把cxGrid的view的datacontroller属性下的datamodecontroller下的GridMode设置为true 在设置GridModeBufferCount为每页显示的行数就可以了 不出现滚动主要是注意控制界面宽度,然后设置GridModeBufferCount为适当值就可以了吧...
2019-01-17 09:58:35
977
原创 cxGrid的checkbox效果
选择对应的列设置properties属性为CheckBox，设置properties下的valuechecked为1设置properties下的valueunchecked为0
2019-01-17 09:44:47
485
转载 cxGrid获得当前列号当前行号
1.获得当前列号 //移动列的位置后，返回结果也改变. cxGridDBTableView1.Controller.FocusedColumnIndex; cxGridDBTableView1.Controller.FocusedItemIndex;2.获得当前行号 //过滤、排序操作会改变返回的结果。 cxGridDBTableView1.Controller...
2019-01-17 09:32:47
1495
转载 cxGrid设置列为按钮并设置按钮事件
在每行的数据最后一列显示一个按钮，点击按钮删除对应的数据。使用cxGrid能完美实现。1、设置按钮列的properties是buttonedit2、设置properties下的属性 viewStyle=vsButtonsAutoWidth3、设置Options中的 ShowEditButtons=isebAlways4、点击properties下的buttons按钮，弹出设置...
2019-01-17 09:22:34
1320
翻译 DevExpress中文说明--TdxCameraControl Object 摄像头组件
TdxCameraControl ObjectHierarchy Properties Methods Events一个摄像头控件Unit dxCameraControlSyntaxTdxCameraControl = class(TdxCustomCameraControl)Descrition该控件允许您捕捉视频或图像从内置/连接的网络摄像头或设备、前后摄像...
2019-01-04 17:21:18
1261
原创 Delphi 把CxGrid中的数据导出到Excel
使用CxGrid自带的方法优点：参数简单uses cxExportGrid4Link;procedure TFrm_func.CxGridToExcel(AcxGrid: TcxGrid);var SaveDialog: TSaveDialog;begin SaveDialog := TSaveDialog.Create(nil); with SaveDialog do b...
2019-01-04 16:49:02
1963
转载 cxgrid的使用TcxExtLookupComboBox列的注意事项
1.要设置为TcxExtLookupComboBox列的DataField属性值和Properties属性的KeyFieldNames子属性值要一致；2.Properties属性的GridMode子属性不能设置为true;
2019-01-04 16:23:34
928
原创 delphi 调用SQL和MYSQL存储过程
delphi 调用SQL存储过程1. mysql存储过程sqls := Format(' call pro_addOneStudent (' + '''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'' )', [stuname, sex, school, classname, p1nam...
2019-01-04 11:20:36
826
原创 splitter 控件属性及作用
splitter 控件的作用，一是可以作为分隔条来分隔窗口中的不同部位，二是可以对窗口不同部位的大小进行实时调整。如何界面让添加的Splitter纵向显示： Align 属性选择 alBottom 再选择 AlNone属性 就可以...
2019-01-04 11:00:19
1684
翻译 Showmodal与Show的区别
Showmodal与Show的区别 1 Show（）； FreeAllSingleDocumentFrm; Application.CreateForm(TImpluseTestWellPlate, ImpluseTestWellPlate); ImpluseTestWellPlate.Show; 2 ShowModal（） Application.Crea...
2019-01-04 10:56:40
4791
转载 FormatFloat 的用法
常用的声明：function FormatFloat(const Format: string; Value: Extended): string; overload; 和上面一样Format参数为格式化指令字符，Value为Extended类型为什么是这个类型， 因为它是所有浮点值中表示范围最大的，如果传 入该方法的参数比如Double或者其他，则可以保存不会超出范围。...
2019-01-04 10:53:15
2369
翻译 Delphi TcxtreeList控件说明
cxTreeList属性：Align：布局，靠左，靠右，居中等AlignWithMargins：带边框的布局Anchors：停靠 （akTop上,akBottom下,akLeft左,akRight右）Bands: 分组面板 Caption：面板标题 AlignHorz：文字水平位置（居中，靠左，靠右） ...
2019-01-04 10:45:23
1586
原创 Delphi 批量把图片保存到Access数据库
//添加一个memo，添加opendialogprocedure TfrmMain.Button6Click(Sender: TObject);var tuid:Integer;begin if opendialog2.Execute then for tuid:=0 to opendialog2.Files.count-1 dobegin tupath4:=opendia...
2019-01-04 09:35:28
374
原创 Delphi 把单张图片保存到Access数据库
procedure TForm1.BitBtn2Click(Sender: TObject);var ext:string;begin openpicturedialog1.FileName :='.jpg';If OpenPictureDialog1.Execute Then begin image1.Picture.LoadFromFile(openpicturedialo...
2019-01-04 09:25:52
542
原创 子窗体做登录窗口的例子
Form1为主窗体，Form2为登陆窗体：form1的 uses添加 unit2;在form1的OnShow 事件写代码：procedure TForm1.FormShow(Sender: TObject);beginApplication.CreateForm(TForm2,Form2);Form2.ShowModal;form2.Free;end;这个就是主窗体的代码，就这...
2019-01-03 21:57:11
341
转载 Stylecontrol控件组之TscGpButton控件
下图为CSDN的一个web工具栏效果： Delphi制作效果如图：制作步骤如下：1.放置一个Panel，如图设置： 2.再放置一个Panel，为P_tools 3.放一个图片List4.放置一个GpButton：属性设置1对其和外间距设置： 属性设置2颜色设置：属性设置3图片设置：5.复制多个GpBu...
2019-01-03 21:48:30
1747
2
转载 DEV CxButton按钮实现扁平化按钮/颜色按钮
很多人认为CxButton不能实现颜色按钮，或者是扁平化的按钮，制作步骤如下：第一步：配置两个按钮的颜色分别为： 第二步：调整控件皮肤选项：按钮最终实现效果：...
2019-01-03 21:40:54
1424
原创 简单的字符串加密和解密
首先定义一个常量数组const XorKey:array[0..7] of Byte=($A1,$B7,$AC,$57,$1C,$63,$3B,$81); //字符串加密用//在程序里加入以下两个函数，function Enc(Str:String):String;//字符加密函數 這是用的一個異或加密vari,j:Integer;beginResult:...
2019-01-03 21:24:18
1310
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人