-
Delphi 修改网络设置DNS地址
Delphi 修改网络设置DNS地址,这个修改DNS程序是通过修改注册表的方法来修改。修改前先获取到系统安装的网卡信息,由用户指定待修改的新DNS地址,输入地址框,单击“修改”按钮即可完成修改。因此通过本程序,你可以了解许多注册表方面的操作技巧,以及网络设置相关知识。
- 2022-02-14 09:59:16下载
- 积分:1
-
取消窗体标题栏的关闭按钮-Delphi代码
Delphi 取消窗体标题栏的关闭按钮,也就是单击窗口右上角的关闭按钮,窗体并不会关闭,让关闭按钮失去了作用,用户可通过单击窗口中的自定义按钮来关闭窗口,这样就相当于取消了窗体标题栏中的关闭按钮。
- 2022-07-04 03:53:29下载
- 积分:1
-
Delphi 7.0 显示密码编辑框中的密码
Delphi 7.0 源代码示例演示:显示密码编辑框中的密码,也就是获取Edit组件中的内容,显示给用户,在代码编写时,可参考下边的几行代码:
L:=GetWindowTextLength(Edit1.handle)+1; //得到名字长度,并将长度加1
GetMem(Name,L);//为将要得到的名字分配内存
GetWindowText(Edit1.handle,Name,L);//得到名字
label1.Caption:=String(Name);//将得到的名字显示于Label1
FreeMem(Name,0); //释放分配的内存
完整的源代码请下载。
- 2022-04-06 19:23:17下载
- 积分:1
-
Delphi 制作的文字屏保
Delphi 制作的文字屏保,文字交替变化,晃动鼠标结束屏保。本程序的亮点是对文字动画效果的生成和控制。具有文字渐变和水平平移动画。
- 2022-03-28 23:49:31下载
- 积分:1
-
使用Delphi 制作无闪烁的动画效果
使用Delphi 制作无闪烁的动画效果,如何实现不闪烁的动画呢?这个例子或许能找到一些答案:部分代码如下:
var
x,i: Integer;
dir,run: Boolean;
begin
b := TBitMap.Create;
b.Width := AnimWindow.Width;
b.Height := 32;
b.Canvas.Pen.Color := clBtnFace;
b.Canvas.Brush.Color := clBtnFace;
b.Canvas.Rectangle(0,0,AnimWindow.Width,32);
run := True;
dir := False;
x := 0;
while run do
for i := 0 to AnimWindow.ImageList1.Count-1 do
begin
b.Canvas.Rectangle(0,0,AnimWindow.Width,32);
AnimWindow.ImageList1.Draw(b.Canvas,x,0,i);
Synchronize(DrawAnimPic);
Sleep(AnimWindow.SpinEdit1.Value);
if (x = 0) or (x = 300) then dir := not dir;
if dir then Inc(x) else Dec(x);
end;
b.Free;
end;
- 2023-03-22 21:40:04下载
- 积分:1
-
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 控制Canvas上的直线点跟随鼠标移动
Delphi 怎样让Canvas上直线的一个端点跟着鼠标跑,控制Canvas上的直线点跟随鼠标移动,其实这就是画线的基本方法,直线的一端确定后,另一端需要鼠标移动来指定端点,本程序的功能就是让线段的另一头跟随鼠标移动,以确定线段的最终位置。
- 2022-02-25 18:56:03下载
- 积分:1
-
窗口中的弹出式右键菜单-delphi源码
窗口中的弹出式右键菜单-delphi PopupMenu源码,
procedure TForm1.Button1Click(Sender: TObject);
var
Poin:TPoint;
begin
Poin := Point(Button1.Left,Button1.Top+Button1.Height);
Poin := ClientToScreen(Poin);
PopupMenu1.Popup(Poin.X,Poin.Y);
end;
- 2022-07-24 15:12:59下载
- 积分:1
-
Delphi 获取服务器时间 更新本机时间
Delphi 通过时间服务器更新时间,包括了两个功能:1、获取服务器时间,2、更新本机时间。通过时间服务器,可一键自动更新日期时间,不过本实例连接的服务器已经失效了,程序不能连接,会假死,测试时候要注意。
- 2022-01-24 08:49:50下载
- 积分:1
-
Delphi7 获取文件的修改时间
Delphi7 获取文件的修改时间,这是一个文件操作实例源代码,获取到文件被修改的时间,代码简单,适合Delphi新手学习参考。
- 2022-03-25 03:51:22下载
- 积分:1