随笔分类 -  Delphi杂项

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)
s​p​c​o​m​m​属​性​详​解
摘要：使用该组件一旦安装：{使用该组件的基本步骤：} 1）将一到'OnReceiveData'事件处理程序。 {1）添加'' OnReceiveData'事件。} 2）呼叫'StartComm'来打开端口。 {2）调用'StartComm'方法打开串口。} 3）使用'WriteCommData'... 阅读全文
posted @ 2014-04-16 11:53 Values 阅读(535) 评论(0) 推荐(0)
RegisterClass与GetClass
摘要：这是转来的一篇文章,利用GetClass与RegisterClass可以实现根据字符串来实例化具体的子类，这对于某些需要动态配置程序的场合是很有用的。其他的应用如子窗体切换，算法替换等都能得到应用。unitExample1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;typeTForm1=class(TForm)Button1:TButton;procedureButton1Click(Sender:TObject);privatepublice 阅读全文
posted @ 2014-02-27 11:27 Values 阅读(347) 评论(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)
FireMonKey消息机制
摘要：interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, FMX.Forms,FMX.Platform.Win, FMX.Types, FMX.Layouts, FMX.Memo;typeTForm1 = class(TForm)Memo1: TMemo;procedureFormCreate(Sender: TObject);procedureFormDestroy(Sender: TObject);privateFHwnd: HWND; // 保存窗口句柄FOldWndProc: LONG; 阅读全文
posted @ 2013-10-01 10:55 Values 阅读(406) 评论(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)
Delphi Socket
摘要：一、Delphi与Socket计算机网络是由一系列网络通信协议组成的，其中的核心协议是传输层的TCPIP和UDP协议。TCP是面向连接的，通信双方保持一条通路，好比目前的电话线，使用telnet登陆BBS，用的就是TCP协议；UDP是无连接的，通信双方都不保持对方的状态，浏览器访问Internet时使用的HTTP协议就是基于UDP协议的。TCP和UDP协议都非常复杂，尤其是TCP协议，为了保证网络传输的正确性和有效性，必须进行一系列复杂的纠错和排序等处理。Socket是建立在传输层协议(主要是TCP和UDP)上的一种套接字规范，最初是由美国加州Berkley大学提出，它定义两台计算机间进行通信 阅读全文
posted @ 2013-08-15 13:48 Values 阅读(625) 评论(0) 推荐(0)
delphi 更改DBGrid 颜色技巧
摘要：1、根据条件更改某一单元格的颜色[delphi]procedureTMainFrm.First_DGDrawColumnCell(Sender:TObject;constRect:TRect;DataCol:Integer;Column:TColumn;State:TGridDrawState);beginifDM.FirstListStatus.AsString='生产'thenbeginFirst_DG.Canvas.Font.Color:=clGreenendelsebeginFirst_DG.Canvas.Font.Color:=clRed;end;ifDataCol= 阅读全文
posted @ 2013-08-12 12:02 Values 阅读(2632) 评论(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 阅读(619) 评论(0) 推荐(0)
FastReport(二)
摘要：FastReport（二）******在Delphi程序中访问报表对象最基本的方法就是frxReport1.FindObject。然后把返回的对象强制转换成它的类型，当然，在报表中必须真的有这么个东东。如改变一个Tfrxmemoview的内容，可以这样写TfrxMemoView(frxReport1.FindObject('memo1')).Text:='jade';还可以用TfrxReportPage的FindBand方法，这个方法的参数是Band类，如报表抬头就可以直接使用这个方法，因为抬头一个页中只有一个，如果有多个同样的类。则不能使用这种方法。如果要使用 阅读全文
posted @ 2013-08-02 13:39 Values 阅读(3004) 评论(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 阅读(860) 评论(0) 推荐(0)
Delphi选择文件夹函数
摘要：SelectDirectory 函数通过显示一个对话框来让用户选择一个目录。注意：在使用前要在Uses 语句中添加包含FileCtrl 的说明。函数原型如下：function SelectDirectory(const Caption: string; const Root: WideString;out Directory: string): Boolean; overload;function SelectDirectory(var Directory: string; Options: TSelectDirOpts;HelpCtx: Longint): Boolean; overload 阅读全文
posted @ 2013-05-23 15:34 Values 阅读(379) 评论(0) 推荐(0)
2013-03-06
摘要：QuotedStr 字符串两边加上两个'Length 取长度不限于字符串 数组也可以IdUDPServer.BroadcastEnabled开启可使用 255.255.255.255 进行广播IdUDPServer Read ReadBuffer 流(TStream)的ReadBuffer传入对象不能是动态数组，否则会出错BinToHex字符串转换为16进制字符串 HexToBin16进制字符串转换为字符串function CalcCRC(Data: PChar; size: Integer): Word;//CRC16校验算法 Delphi版 应传入相应字符串【非16进制字符串】跟其 阅读全文
posted @ 2013-03-06 11:45 Values 阅读(128) 评论(0) 推荐(0)