总结一下用到的知识（开发环境安装配置不计算在内）： 第六章 使用不同风格的按钮； 第十七章 让布局适应不同大小与方向的窗体； 第二十五章 使用 dbExpress访问 InterBase ToGo 第二十九章 从移动客户端连接到企业数据库； 以下是具体制作步骤： 1、创建DataSnap服务VCL应用程序1.1 创建服务程序新建一个项目：Delphi Projects >DataSnap Server > DataSnap Server 1. 第一步，选择Forms A
varicount : integer;beginTreeView1.Items.EndUpdate;//示例中用的是TreeView组件for icount := 0 to TreeView1.Items.Count-1 doTreeView1.Items[icount].Expanded:=True;TreeView1.Items.EndUpdate;end;
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Cl
本例效果图: 代码文件:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ImgList, ComCtrls; type TForm1 = class(TForm) ComboBox1: TComboBox; ImageList1: TImageList; procedure FormCre
//声明:GetTickCount: DWORD; {无参数; 返回系统已启动的时间(毫秒)}//举例:var t: DWORD;begin t := GetTickCount; ShowMessage(IntToStr(t));end;
{从字符串中提取汉字的函数}procedure StrToHanZiList(str: string; var List: TStringList);var p: PWideChar;begin if List = nil then List := TStringList.Create; List.Clear; {去除重复} List.Sorted := True; List.Duplicates := dupIgnore; p := PWideChar(str); while p^
///首先在控件栏定位到:Indy Clients加入控件IdSMTP///再定位到:Indy Misc加入控件IdMessage///发送邮件函数procedure TForm1.SendMail(YYuser: string;YYpass:string); begin try IdSMTP1.AuthenticationType:=atLogin; //设置登陆类型 IdSMTP1.Username:='xxxx@qq.com'; //设置登陆帐号 IdS
uses Winsock;{远程唤醒函数 00-e0-4d-df-7e-8a}procedure WakeUpPro(MacAddr: string);var WSAData : TWSAData; MSocket : TSocket; SockAddrIn : TSockAddrIn; i : integer; MagicAddr : array[0..5] of Byte; Magi