function GetInputAwayTime():DWORD; var lpi:TLastInputInfo; begin lpi.cbSize := sizeof(lpi); GetLastInputInfo(lpi); Result := Round((GetTickCount()-lpi ...
1. 定义线程类 type TMyThread = class(TThread) private { Private declarations } fPos:Integer; // 变量 protected procedure GetMailList; procedure UpdatepBar; / ...
分类：
编程语言 时间：
2020-03-25 21:52:13
阅读次数：
75
// 循环往上滚动 if Memo1.Perform(EM_SCROLL,SB_LINEDOWN,0)=0 then begin Memo1.Perform(WM_VSCROLL,SB_TOP,0); end else begin SendMessage(Memo1.Handle,WM_VSCROL ...
Delphi自带的TMediaPlay控件不能播放网络路径的音频文件，上网查了一下，比较简单的就是使用windows系统自带的WindowsMediaPlay控件。 1.导入WindowsMediaPlay控件 我用的DelphiXE8，其他的也大同小异。 Component->ImportComponent->ImportActi
第三方控件TMS、SPComm的下载与安装 盒子上可搜索关键字进行下载，TMS是.dpk文件，SPComm.pas文件； 安装方法自行百度，不做赘述。 通过TMS控件进行界面布局 界面预览： Delphi通过SPComm连接串口、发送和接收指令 连接串口 拖一个TComm控件到主窗体上，选中控件，单 ...
Delphi 常见文件类型 {以下内容来源于网络，修改多处错误所得 2020.03.24} 序号 后缀名 描述 1 .DPR: /.dpr Delphi Project文件，包含了Pascal代码。应用系统的工程文件.文本格式，需要进源代码库。 2 .PAS: /.pas Pascal文件，Pasc ...
第一种方法，使用“过程调用” procedure Del; // 自定义过程 var Mutex: THandle; begin Mutex := CreateMutex(nil, True, PChar(Application.Title)); if GetLastError = ERROR_AL ...
procedure SaveGridViewEditing(AView: TcxGridDBTableView); overload; var vDst: TDataSet; begin // 应用未保存编辑框的修改 if (AView.DataController.EditState <> []) ...
DelphiXE3新建WebService具体操作：1.打开“DelphiXE3”->“File”->“New”->“Other”2.“New Items”－>“Delphi Projects”->“WebSrvice”->“SOAP Server Application”3.“Stand-alon ...
