随笔分类 -  Delphi所得

1 2 下一页
dephi cef3获取Post数据
摘要：GetResourceHandler 事件 procedure Chromium1GetResourceHandler(Sender: TObject; const browser: ICefBrowser; const frame: ICefFrame; const request: ICefRe 阅读全文
posted @ 2017-05-13 13:55 Values 阅读(979) 评论(0) 推荐(0)
Delphi下 多显示器，将窗体显示于第二个显示器
摘要：Form1.MakeFullyVisible(screen.Monitors[1]);with Form1do begin{ Position form }Top := 0 ;Left := 0 ;{ Go full screen}BorderStyle := bsNone ;WindowState... 阅读全文
posted @ 2016-01-03 11:06 Values 阅读(1022) 评论(0) 推荐(0)
Delphi下POS机
摘要：procedure tform1.OpenSerialPort;varcc:TCommConfig;Temp:string;beginTemp:='Com'+inttostr(RadioGroup1.ItemIndex+1);hSerialPort:=CreateFile(PChar(Temp),G... 阅读全文
posted @ 2015-12-03 13:30 Values 阅读(367) 评论(0) 推荐(0)
SQLConnection 连接 SQLite
摘要：要用SQLConnection连接SQLite要用到SQLConnection,SQLQuery(SQLDataSet也可以),DataSetProvider,ClientDataSet,DataSource注意：如果你先将SQLQuery(SQLDataSet)Open，再Open ClientD... 阅读全文
posted @ 2014-11-19 17:34 Values 阅读(1207) 评论(0) 推荐(0)
cxGrid主视图取得从视图
摘要：var DetailGridView: TcxCustomGridView; MasterGridView: TcxCustomGridView;begin DetailGridView:= cxGrid1DBTableView1.Controller.FocusedRow.AsMasterData... 阅读全文
posted @ 2014-11-13 16:17 Values 阅读(195) 评论(0) 推荐(0)
Delphi RTC
摘要：XE5以上执行同步(阻塞)execute是得加入rtcFMX_GUI单元，否则会导致程序无响应，异步(非阻塞)call则不会 阅读全文
posted @ 2014-10-08 11:30 Values 阅读(494) 评论(0) 推荐(0)
Delphi cxGrid加行号
摘要：1 procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo; 2 var ACanvas: TcxCanvas; var ADone: boolea... 阅读全文
posted @ 2014-07-17 17:25 Values 阅读(636) 评论(0) 推荐(0)
Delphi Internal Error L681
摘要：Delphi Internal Error L681Although this specific example doesn't reproduce the problem in a small project, this caused the problem in a larger project... 阅读全文
posted @ 2014-06-26 16:49 Values 阅读(482) 评论(0) 推荐(0)
Delphi 单元不能被循环引用
摘要：单元不能被循环引用（Circular unit reference)的。循环引用的意思是：A引用了B，而B又引用了A，且都是在interface部分进行引用。example:unit Unit1;interfaceusesUnit2;......unit Unit2;interfaceuses Un... 阅读全文
posted @ 2014-06-26 16:23 Values 阅读(592) 评论(0) 推荐(0)
Delphi ADOQuery无法更新定位行问题(其它数据库访问控件类似)
摘要：在Delphi中用ADOQuery进行数据库的记录操作时，有时会报 “无法为更新定位行。一些值可能已经在最后一次读取后已更改” 这个错。这个错通常是 你操作的记录 在数据库中已经被修改过了，如：在数据库中已被删除了，你用ADOQuery更新了被删除的记录数据库表字段有默认值，你用ADOQuery插入... 阅读全文
posted @ 2014-06-15 16:27 Values 阅读(587) 评论(0) 推荐(0)
s​p​c​o​m​m​属​性​详​解
摘要：使用该组件一旦安装：{使用该组件的基本步骤：} 1）将一到'OnReceiveData'事件处理程序。 {1）添加'' OnReceiveData'事件。} 2）呼叫'StartComm'来打开端口。 {2）调用'StartComm'方法打开串口。} 3）使用'WriteCommData'... 阅读全文
posted @ 2014-04-16 11:53 Values 阅读(537) 评论(0) 推荐(0)
dxSkinController动态调入皮肤
摘要：转http://www.cnblogs.com/Simon_01/archive/2011/05/27/2059576.htmldxSkinController可以在运行时动态调入皮肤，不用在设计期Use一大串文件，把要用的皮肤用安装程序自带的Skin Editor编辑一个SkinRes文件，然后在程序中动态调入就可以了。uses dxSkinsDefaultPainters;procedure TForm1.FormCreate(Sender: TObject);begincxComboBox1.Properties.Items.Clear;dxSkinsUserSkinPopulateSk 阅读全文
posted @ 2014-03-10 11:48 Values 阅读(371) 评论(0) 推荐(0)
Delphi消息小记
摘要：SendMessageA 说明: 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回SendMessage所包含4个参数: 1. hwnd 32位的窗口句柄窗口可以是任何类型的屏幕对象，因为Win32能够维护大多数可视对象的句柄 2. wMsg 用于区别其他消息的常量值，这些常量可以是Windows单元中预定义的常量，也可以是自定义的常量 3. wParam 通常是一个与消息有关的常量值，也可能是窗口或控件的句柄 4. lParam 通常是一个指向内存中数据的指针。由于WParm、lParam和Pointer都是32位的，因此，它们之间可以相互转换 wMsg函 阅读全文
posted @ 2013-12-26 14:23 Values 阅读(277) 评论(0) 推荐(0)
XE5 变相连接数据库
摘要：XE5中Android不支持SQL Server的连接，所以近来弄出了个歪办法：通过DataSnap(Web Services也可)来获取数据，现在建立一个DataSnap吧打开XE5,点击菜单File>>New>>Other>>DataSnap Server然后一直Next(设置端口那里可默认，也可以改为自己要想的),最后Finish到这一步会看到生成了这些在ServerContainerUnit1.Pas中加入关系如图所示(连接数据库的控件可换为你所熟用的)接着打开ServerMethodsUnit1.Pas编写获取数据的代码了public下加入 fun 阅读全文
posted @ 2013-11-12 16:28 Values 阅读(533) 评论(0) 推荐(0)
Delphi 临界区问题
摘要：Delphi中，你在多线程或通讯方面使用临界区时，若使用了两次 Leave 会造成程序界面无响应，在Leave之前先使用Delete删除临界区再Leave时也会(其实也等同于两次Leave)，所以在编写多线程和通讯用到临界区时，一定要确保一个Enter对应一个Leave，而且顺序一定要是Initia——[Enter——Leave]——Delete如有不对，请指点...... 阅读全文
posted @ 2013-09-08 14:52 Values 阅读(263) 评论(0) 推荐(0)
cxGrid加序号
摘要：procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo;var ACanvas: TcxCanvas; var ADone: boolean);uses cxLookAndFeelPainters;procedure SetRowNumber(var ASender: TcxGridTableView; AViewInfo: TcxCustomGridIndicatorItemViewInfo;var ACanvas: TcxCanvas; var A 阅读全文
posted @ 2013-08-08 10:42 Values 阅读(620) 评论(0) 推荐(0)
FastReport(二)
摘要：FastReport（二）******在Delphi程序中访问报表对象最基本的方法就是frxReport1.FindObject。然后把返回的对象强制转换成它的类型，当然，在报表中必须真的有这么个东东。如改变一个Tfrxmemoview的内容，可以这样写TfrxMemoView(frxReport1.FindObject('memo1')).Text:='jade';还可以用TfrxReportPage的FindBand方法，这个方法的参数是Band类，如报表抬头就可以直接使用这个方法，因为抬头一个页中只有一个，如果有多个同样的类。则不能使用这种方法。如果要使用 阅读全文
posted @ 2013-08-02 13:39 Values 阅读(3006) 评论(0) 推荐(0)
FastReport(一)
摘要：TfrxReport此为最主要的报表元件，一个 TfrxReport 元件组成一份报表。在设计时期，双击此元件可打开报表设计器(Report Designer)，此元件拥有所有载入、存盘、设计及来看报表必须的属性及方法。TfrxReport 提供的方法：procedure Clear; 清除报表function LoadFromFile(const FileName: String; ExceptionIfNotFound: Boolean = False): Boolean; 从给予的文件载入报表。假如第二个参数等于 “True”且文件不存在，将产生例外状况， 假如文件载入成功，返回值为”T 阅读全文
posted @ 2013-08-02 13:38 Values 阅读(1148) 评论(1) 推荐(0)
Delphi 调用DLL中的窗体
摘要：libraryProject1;usesSysUtils, Classes,Forms,windows,dialogs, Unit1in'Unit1.pas'{Form1};{$R *.res}functionshowform(formname:string):boolean;stdcall;var TheClass: TPersistentClass; aForm: TForm;beginresult:=false;{如果您的Dll中有很多FORM，请在这儿注册哦RegisterClasses([TForm1,TForm2,TForm3,...]);}RegisterClas 阅读全文
posted @ 2013-08-02 11:51 Values 阅读(861) 评论(0) 推荐(0)
FindChildControl与FindComponent
摘要：http://blog.csdn.net/tht2009/article/details/6954880?reload前两天编码遇到了要使用FindChildControl方法获取指定名称的TSpeedButton按钮，结果折腾了半天就是没得结果(基础不扎实，呵呵)，于是赶紧搜索了下，补习关于这两个方法的用法。 TWinControl类的FindChildControl方法在FWinControls中查找返回指定名称的可视且有窗体的组件(继承自TWinControl类)。该方法可以确定当前控件是否含有(contain)指定名称的继承自TWinControl类的子控件，其结果与指定要查找的控件的 阅读全文
posted @ 2013-06-24 17:52 Values 阅读(1170) 评论(0) 推荐(0)

1 2 下一页