-
Delphi 使用快捷键保存数据至SQLSERVER
Delphi 使用快捷键保存数据，这里是将数据保存在SQLSERVER数据库中，测试前请连接好数据库哦。
- 2022-07-24 01:07:01下载
- 积分：1
-
Delphi时间换算 换算秒数为时间格式
Delphi时间换算 换算秒数为时间格式，其实这种换算还是挺简单的吧，TimeToStr(I/86400);就可以算出。在运行的程序窗口中，输入任意秒数（必需输入数字）后，点击确定按钮，即可显示出时间格式的秒数了。具体的代码这里不帖了，需要的请下载完整源码吧，运行效果图如截图所示。
- 2022-07-17 19:50:24下载
- 积分：1
-
Delphi 垂直交错显示效果
图片的垂直交错效果，Delphi 编写的图片垂直交错显示效果，之前就分享过这种效果，类似百叶窗的交替显示效果，可用于图片转场，不过本效果还有很多地方需要优化，当时是写给一本书，作为随书实例的，有兴趣的可参考，关于本功能的关键代码部分，请看以下代码：
newbmp:= TBitmap.Create;
newbmp.Width:=image1.Width;
newbmp.Height:=image1.Height;
bmpheight:=image1.Height;
bmpwidth:=image1.Width;
i:=0;
while i0 do
begin
newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));
newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1));
j:=j-2;
Application.ProcessMessages;
end;
form1.Canvas.Draw(0,0,newbmp);
i:=i+2;
end;
newbmp.free;
- 2023-04-12 21:35:03下载
- 积分：1
-
Delphi获取从开机到现在CPU运行的周期数
Delphi获取从开机到现在CPU运行的周期数，不是获取开机时间多长，是CPU的周期数，显示的值为数字字符串，运行效果如示例截图所示。代码段：
begin
Edit1.Text := inttostr(periodicity);
end;
- 2022-07-05 04:51:29下载
- 积分：1
-
Delphi 快速查询文件
Delphi 快速查询文件，比较老的代码，搜索文件的地址需要手工输入哦，查询的结果会显示在空白处。返回查询的代码如下：
List := TStringList.Create;//创建字符传列表
try
spec := ExtractFileName(filespec);//返回指定文件名
RFindFile(ExtractFilePath(filespec));//返回指定路径
Result := list;//函数返回值是List;
- 2022-03-19 10:17:26下载
- 积分：1
-
Delphi控制电脑蜂鸣器或扬声器发声音
Delphi控制电脑蜂鸣器或扬声器发声音，有些称之为喇叭，不过测试发现，这个是优先机箱蜂鸣器发出声音，或没装蜂鸣器，则会从音箱中发声音，实现的代码很简单，以下代码即可实现：
procedure TForm1.Button1Click(Sender: TObject);
var
i,j : integer;
begin
for i := 1000 to 2000 do
begin
j := i;
windows.Beep(1000,3000);
end;
end;
- 2022-02-05 03:44:28下载
- 积分：1
-
一个无标题栏窗体 如何拖动？Delphi方法示例
本源码主要演示，Delphi如何拖动一个无标题栏的窗体，此前记得与大分享过不少VB类的相似源码，大部分情况下，我们习惯拖动窗口的标题栏来移动窗口，现在我们把窗口的标题栏去掉了，那么是如何实现窗口的拖动呢？其实我们可以拖动窗口的主窗口部位，同样可以拖动窗口，而且这样似乎更方便操作，关于代码的实现，请大家下载源码后，查看Unit1.pas文件。
- 2022-09-30 14:35:03下载
- 积分：1
-
Delphi 让组件拖动窗体 按钮拖动窗口移动
Delphi 让组件拖动窗体 按钮拖动窗口移动，如图所示的窗口中，用户只需按住按钮，即可将整个窗口在屏幕上随意拖动，实现了如何用组件来移动窗体的功能。下面是相关代码：
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=MBLeft then
begin
releasecapture;
PerForm(WM_SYSCOMMAND,$F012,0);
end;
end;
- 2023-03-07 20:25:03下载
- 积分：1
-
Delphi 静音 左右声道音量控制
Delphi控制系统静音，两个声道均不发出声音，同时若在非静态状态下，可控制左、右声道的音量大小，在代码中@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，在调节左声道的时候，不改变右声道}数字前面加＄表示是十六进制数字，(t shl 8)表示t左移8位，部分参数设置代码如下：
procedure TForm1.FormCreate(Sender: TObject);
var
v:longint;
begin
waveoutgetvolume(0,@v);//得到现在音量，@v表示指向变量v的指针（32位）
trackbar1.Position:=hi(v);//设置左滑块的正确位置
trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置
end;
- 2022-06-02 00:55:40下载
- 积分：1
-
Delphi演示UniCode编码、简体繁体互转的方法实现
Delphi演示如何实现UniCode编码、汉字的繁简互转功能，同时将字符转换为unicode码值（十六进制）：
常用编码：
codepage=936 简体中文GBK
codepage=950 繁体中文BIG5
codepage=437 美国/加拿大英语
codepage=932 日文
codepage=949 韩文
codepage=866 俄文
codepage=65001 unicode UTF-8
本例子中仅使用了936、950，如果你要进行其他语言的编码转换，仅需相应改变其中的编码值即可。
- 2023-06-10 00:30:04下载
- 积分：1
