-
Delphi 利用API绘制弧形
Delphi 利用API绘制弧形，
begin
ArcRect := ClientRect;
Canvas.Pen.Width:=2;
for i:=1 to 10 do
begin
Arc(Canvas.Handle,ArcRect.Left,ArcRect.Top,ArcRect.Right,
ArcRect.Bottom,ArcRect.Right,(ArcRect.Bottom-ArcRect.Top) div 2,
ArcRect.Left,(ArcRect.Bottom-ArcRect.Top) div 2);
InflateRect(ArcRect,-2,-2);
Canvas.Pen.Color := PaletteIndex(i+10);
end;
- 2022-03-21 03:44:09下载
- 积分：1
-
Delphi 模拟制作Windows XP风格界面的下拉页
Delphi 模拟制作Windows XP风格界面的下拉页，实际上就是XP资源管理器界面的右侧窗口，鼠标单击会向下展开，再次单击会重新合拢，像一个折叠展开的面板那样，这种形式的窗口在Windows中已经早有应用，这只是一个用Delphi代码仿写的效果，希望对大家的Delphi界面设计有所帮助。
- 2022-07-24 03:34:24下载
- 积分：1
-
方格变换的Delphi图像显示，类似于马赛克
方格变换的Delphi图像显示，类似于那种动态的马赛克效果，电视上经常见到这种图像切换的效果，当然网页上的一些焦点图切换也会常见到这种图像转场的过渡效果，相比直来直去的切换，增加了一些视觉效果，不至于那么单调。
本效果适用的图像格式了BMP位图，其它图片格式未做测试。
- 2022-07-18 02:39:41下载
- 积分：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
-
Delphi7 获取文件的修改时间
Delphi7 获取文件的修改时间，这是一个文件操作实例源代码，获取到文件被修改的时间，代码简单，适合Delphi新手学习参考。
- 2022-03-25 03:51:22下载
- 积分：1
-
Delphi 显示彩色数据表格
Delphi 显示彩色数据表格，对DBGrid数据表格进行美化，自定义任意行和任意列单元格显示不同的背景颜色，这样可实现特定数据显示不同的颜色，更利于报表的清淅直观。
- 2022-03-15 16:49:57下载
- 积分：1
-
Delphi 程序控制关闭显示器
Delphi 程序控制关闭显示器，不过我很好奇Delphi真能关闭显示器么？如果是用Delphi截断视频信号的输出，让显示器黑屏，这倒是有可能哦，但是让Delphi直接关闭显示器，有点不太可能吧？看了看代码，原来是这样：
begin
//关闭显示器
PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,1);
//打开显示器：
PostMessage(Application.Handle,WM_SYSCOMMAND,SC_MONITORPOWER,0);
end;
- 2022-04-01 11:14:50下载
- 积分：1
-
Delphi 设定Windows屏幕分辨率的方法和示例代码
Delphi 设定Windows屏幕分辨率的方法和示例代码：
function TForm1.DynamicResolution(X, Y: word): BOOL;
var
lpDevMode: TDeviceMode;
begin
Result := EnumDisplaySettings(nil, 0, lpDevMode);
if Result then
begin
lpDevMode.dmFields := DM_PELSWIDTH Or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := X;
lpDevMode.dmPelsHeight := Y;
Result := ChangeDisplaySettings(lpDevMode, 0) = DISP_CHANGE_SUCCESSFUL;
end
- 2023-04-22 01:05:03下载
- 积分：1
-
Delphi 将数字转换成字符串
Delphi 将数字转换成字符串，请参见以下的转换代码，转换成功后将以 showmessage的形式返回结果，核心转换功能代码实现：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
i:=1234567;
s:=inttostr(i);
showmessage(s);
end;
- 2022-09-05 21:20:03下载
- 积分：1
-
Delphi开发的模型飞机测控平台 附源代码
Delphi开发的模型飞机测控平台 附源代码，里面主要涉及多线程操作、GPS、传感器、端口操作等一系列系统控制的技巧，还包括了许多操作函数，比如绘制飞行轨迹的函数、绘制坐标刻度的函数、用户界面读取发送数据指令的函数、还有线程的同步、线程互斥等。
由于有调试目的，如果要求发送字符格式的数据，就直接发送用户输入的字符串，其他情况下，都是发送打包好的数据矩阵。
调用其它函数实现发送串口数据的功能。注意函数GetData还没有实现线程的互斥，目的是把发送的数据保存在各个线程中。
在此提示： 由于传输系统总会有一定的吴码率，那么为了避免轨迹图出现问题，例如坐标范围过大需要除去粗大误差，考虑到模型飞机的飞行速度不会超过10m/s，考虑到数子传输系统的下传速度，设定如果位置变化超过20m就去掉。
- 2022-08-16 19:54:45下载
- 积分：1
