-
Delphi 枚举线程示例
枚举线程的Delphi实例代码,Delphi 枚举线程的例子应该很多了,这一个比较简单的那种,可以为学习Delphi的新手朋友提供一些参考思路,运行界面效果如下图所示。源代码编译于Delphi7.0环境。
- 2022-08-16 10:03:07下载
- 积分:1
-
Delphi 显示文件的播放进度
Delphi 显示文件的播放进度,使用了Timer实现对进度的计算和显示。
- 2022-05-28 13:11:17下载
- 积分:1
-
Delphi实现窗体失去焦点时标题栏闪动特效
这是个有意思的窗口设计实例源码,Delphi实现窗体失去焦点时标题栏闪动特效,flashwindow特效,这样可吸引操作者注意,其实实现这一功能并不复杂,以下代码最关键:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
flashwindow(Handle,true);
end;
procedure TForm1.WMACTIVATEAPP(var message: TWMACTIVATEAPP);
begin
if Message.Active then
form1.Timer1.Enabled := false
else
form1.Timer1.Enabled := true;
end;
完整源码请下载。
- 2022-07-08 18:47:20下载
- 积分:1
-
在输入时按回车移动光标到一下文本框-Delphi示例
Delphi实现回车移动焦点的功能,当用户在输入时按回车键,将移动光标到一下文本框,这个功能我觉得可很好的提升软件的操作体验,为实现快捷输入近了一步。具体代码请参考如下:
begin
if Key = 13 then
begin
keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下
keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0); //弹起
end;
end;
- 2022-08-21 20:36:32下载
- 积分:1
-
Delphi实现动态的窗口标题栏文字
Delphi实现动态的窗口标题栏文字,让标题栏文字滚动,有以下动态变化形式:标题左循环,标题左右移动,停靠右端,设置移动时间间隔,每隔多少毫秒移动一个字等。可以在标题上设置一些醒目的内容,再使用本效果,吸引使用者的注意,是一种很不错的提醒方式。
- 2022-01-27 16:11:55下载
- 积分:1
-
Delphi 7.0 改变菜单中的字体样式
Delphi 7.0 改变菜单中的字体样式,本程序其实实现了两种功能,1、枚举系统中所有已安装的字体,并加载到Listbox列表中供选择,2,改变字体样式,选中列表中的任意字体样式,单击即可改变菜单中的文字样式,为窗口中其它区域的文字设置字体样式的时候也可参考。
begin
ListBox1.Items:=Screen.Fonts;字体样式
self.MainMenu1.AutoHotkeys:=maManual;
self.MainMenu1.AutoLineReduction:=maManual;
Screen.MenuFont.Size:=12;字号
end;
- 2022-07-27 08:35:14下载
- 积分:1
-
Delphi 计算1到10之间的奇数和【源码】
Delphi 推荐到奇数,并计算1到10之间的奇数求和,这是个简单的数学问题,数学水平高,写出这种小程序并不难,趁机把代码帖出来吧:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
j:=0;
For i := 1 to 10 do
begin
if i mod 2 =0 then
Continue;
j := j+i;
Edit1.text := IntToStr(j);
end;
end;
- 2023-02-23 03:45:04下载
- 积分:1
-
Delphi 不使用标题栏移动窗体
Delphi 不使用标题栏移动窗体,意思是说,平时大家拖动Windows窗口的时候,都是鼠标放在窗口的标题栏上,按住鼠标左键拖动窗体,但本源码实现的功能是,不以标题栏为操作目标,那是怎么实现的窗口拖动呢?请下载参见本源码。
- 2022-10-18 04:15:03下载
- 积分:1
-
Delphi为程序添加esc退出程序的功能
本源码演示Delphi如何用ESC键退出程序,为程序添加esc退出程序的功能,一般情况下,关闭程序都是通过ALT+f4或者直接点击窗口右上角的叉子关闭,不过我们也可以为程序添加通过键盘按下ESC键来关闭程序,本源码就是演示了此种功能,当用户按下ESC时,窗口即关闭,程序退出。
- 2022-07-21 22:03:47下载
- 积分:1
-
Delphi 文件拖放获取路径实例
Delphi 文件拖放获取路径实例,用文件拖放的方式打开文件,本实例中虽然没有打开文件,但是获取到了文件路径,因此你就可以依此功能扩展成打开文件的功能。
实现方法使用了shellAPI,将Form1注册为文件拖放接收控件,说请请下载该源码。
- 2022-09-12 19:45:03下载
- 积分:1