-
Delphi 在程序运行过程中动态添加菜单
Delphi创建动态菜单，在程序运行过程中动态添加菜单，点击“添加菜单”按钮，会在菜单栏中增加一个“编辑”菜单项，预设中每次添加的菜单项都是“编辑”，这也是为了验证不要添加重复的菜单项，代码中的判断是一种方法，另外也可以通过菜单项的Caption属性来判断，不过之前最好设置AutoHotkeys和AutoLineReduction为maManual。在以下创建菜单项的代码中：
self.MainMenu1.AutoHotkeys:=maManual;
self.MainMenu1.AutoLineReduction:=maManual;
通过设置这两个属性可以禁止程序自动为菜单生成热键，否则程序会自动在菜单的Caption属性中加入热键，并且会修改Caption属性的值，给通过Caption属性判断菜单项带来麻烦。
- 2022-03-22 14:48:49下载
- 积分：1
-
内存使用状态Delphi 探测并显示
Delphi获取内存的使用状态并显示信息，这里是使用GlobalMemoryStatus来实现，有的是使用GetSystemInfo来获龋本程序可显示内存大小和可用内存，并显示进度条。不过我这台电脑是16G内存的Windows7 64位系统，程序可能没认出啊，下面是识别内存可用量的大小，仅供参考：
memo_status.dwLength := sizeof(memo_status);
GlobalMemoryStatus(memo_status);
Gauge2.Progress := (round((100*(memo_status.dwAvailPhys
/ memo_status.dwTotalPhys))));
label1.Caption := inttostr(memo_status.dwAvailPhys);
label2.Caption := inttostr(memo_status.dwTotalPhys);
- 2022-02-03 06:55:31下载
- 积分：1
-
Delphi 获取全球标准时间
Delphi 通过网络获取全球标准时间，我们知道在Windows中有三个全球标准时间服务器，若你的电脑设置为自动更新时间，则系统自动会从这三台时间服务器中更新时间，你的电脑就不用自己校对时间了。本程序就是演示，用Delphi编写代码，去连接全球时间服务器，校对时间并更新系统时间的例子，你可通过本源码了解一下时间更新的问题。
- 2023-02-03 13:05:04下载
- 积分：1
-
Delphi 【Frame3D】函数的应用实例-三维框源码
Delphi 函数【Frame3D】的应用，该函数用于在画布上绘制一个3维框图：
implementation
{$R *.dfm}
procedure TFrmFrame3D.FormCreate(Sender: TObject);
begin
Bc:=Rect(80,50,100,200);
end;
procedure TFrmFrame3D.FormPaint(Sender: TObject);
begin
Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);
end;
procedure TFrmFrame3D.Button1Click(Sender: TObject);
begin
Bc:=Rect(strtoint(Edx.text),strtoint(Edy.Text),strtoint(EdH.Text),strtoint(EdW.Text));
Frame3D(canvas,Bc,clblack,clAppWorkSpace,2);
end;
- 2022-06-16 08:51:26下载
- 积分：1
-
Delphi GetCurrentDirectory得到系统当前目录
得到系统当前目录，Delphi 得到系统当前目录，这里使用了内置的GetCurrentDirectory函数来实现，比较方便，也比较简单。获取到系统目录后，是通过窗口的标题栏显示目录路径信息，在演示截图上请看窗口的标题栏，显示有程序当前所在的路径。关于GetCurrentDirectory用法，请参见以下两行代码：
GetCurrentDirectory(255,dir);//获得当前目录
form1.Caption:=dir;
- 2022-07-07 13:11:54下载
- 积分：1
-
Delphi 7.0 使用Quotedstr函数返回字符串的引证串
Delphi 7.0 使用Quotedstr函数返回字符串的引证串，为了演示方便，本程序于SQLSERVER数据库结合，在运行此程序之前，需要附加数据库。具体附加数据库的方法请参见说明书。
- 2023-03-07 09:55:03下载
- 积分：1
-
Delphi在窗口中单击左键弹出菜单
Delphi在窗口中单击左键弹出菜单，在运行的窗体空白外，单击鼠标左键，弹出主菜单，其实和右键 菜单 是一样的原理，希望通过这个简单的例子，了解自定义窗口菜单的实现方法。
- 2023-09-08 18:20:03下载
- 积分：1
-
Delphi 鼠标双击TStatusBar时判断是哪一个panels
Delphi 鼠标双击TStatusBar时判断是哪一个panels，这个是把窗口的状态栏分隔，每个隔断中显示不同的内容，用鼠标双击不同的隔断，程序将判断用户点击了哪个隔断，并获取到该栏中的文字内容显示出来。
- 2023-02-09 01:20:03下载
- 积分：1
-
Delphi 演示使用演示Brush对象的各种风格
Delphi 演示使用演示Brush笔刷对象后生成的各种风格，一种演示了7种笔刷效果，定义了一个存储绘图风格的7维数组，然后使用For循环对绘图风格数组赋值，然后使用Canvas.Brush.Style来预览风格。这些笔刷风格都是浅色彩的风格。
- 2022-07-08 18:13:17下载
- 积分：1
-
Delphi 演示如何播放GIF动画
Delphi 演示如何播放GIF动画，其实就是在窗口中显示GIF图像，这是一种连续显示类似于动画效果的图像格式，在窗体上只要可以正常显示这种文件，就能实现播放功能，如示例截图所示的效果。
- 2023-05-10 00:50:04下载
- 积分：1
