-
在Delphi中进行 YCrCb RGB 颜色值转换
在Delphi中进行 YCrCb RGB 颜色值转换，载入一张测试图片，右侧显示的转换后的颜色图像，文本框中显示的是各个转换过的颜色值。希望通过这个Delphi例子，帮你了解一下YCrCb向RGB颜色值的转换过程，转换方法和思路，本源码中则是具体的实战代码，请下载后研究。
- 2022-05-23 08:16:07下载
- 积分：1
-
Delphi 使DBGrid支持鼠标滚轮
Delphi 使DBGrid支持鼠标滚轮，测试前请确保程序已连接好数据库，否则会有很长一段时间反应，读取的数据会显示在DBGrid控件中，请在DBGrid组件中滚动鼠标滚轮，可将整个列表上下滚动，便于浏览数据，这个功能在一些软件中经常会遇到，具体编写思路请下载源码研究。
- 2022-04-12 01:26:52下载
- 积分：1
-
Delphi IntToHex函数用法举例
关于IntToHex，在Delphi中使用频率也是挺高的，不过像我这种菜鸟，对IntToHex的具体用法仍是不太熟悉，后来看了这个小程序，了解了一些，分享给大家，特别是以下代码会加深你对IntToHex函数的用法理解。
procedure TForm1.Button1Click(Sender: TObject);
var
S:integer;
begin
S:=2147483647;
showmessage(inttoHex(s,8));
showmessage(inttoHex(s,10));
showmessage(inttoHex(s,16));
showmessage(inttoHex(s,32));
end;
- 2022-09-07 01:20:03下载
- 积分：1
-
Delphi 屏蔽键盘 sleep和wake up键
如何屏蔽sleep和wake up键,一个是待机键,一个是唤醒键,屏蔽可有效避免误操作,不过本代码过于简单,屏蔽效果有待测试,核心代码如下:
procedure TForm1.WMPowerBroadcast(var message: TMessage);
begin
message.Result := BROADCAST_QUERY_DENY;
end;
- 2022-06-30 14:51:25下载
- 积分：1
-
Delphi 播放指定avi-mid-wav文件
Delphi 播放指定avi-mid-wav文件,这几种都是音频格式，因此这个可以说是播放音频文件的例子，控制面板中包括了常用的播放控制按钮，在此基础上，可写出一个Delphi音乐播放器，当然本源码比较早了，适合学习一些简单的Delphi音频编程技巧。
procedure TForm1.N2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
with MediaPlayer1 do
begin
Filename := OpenDialog1.FileName ;
Open;
DisPlayrect := Rect(1,1,Panel2.Width ,Panel2.Height );
Notify := true;
end;
end;
end;
- 2023-05-08 02:15:02下载
- 积分：1
-
Delphi 隐藏或显示鼠标指针
Delphi 隐藏或显示鼠标指针，在编译后运行本程序生成的Exe程序，在窗口中单击鼠标左键，鼠标会消失，被隐藏了，再次单击后鼠标重现，很好的演示了在Delphi中如何显示或隐藏鼠标的操作。
- 2022-01-26 04:41:31下载
- 积分：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 getTime 获取当前日期时间实例源码
Delphi getTime 获取当前日期时间，用的是DateTimeToStr，运行本窗口后，自动获取当前电脑上的时间，显示在窗体指定的Lable标签中，这是核心的源代码：
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption := DateTimeToStr(now());
end;
- 2022-11-15 02:10:03下载
- 积分：1
-
Delphi 定义鼠标ANI动画光标
ANI动画鼠标，为自己的鼠标定制了一个带笑脸动画的光标，类似于定义鼠标的样式，定义动画光标将改变鼠标默认的样式，这样定义的动画光标格式为ANI文件。
屏幕截图抓不到动画光标，这是神马情况？
- 2022-10-08 15:50:03下载
- 积分：1
-
Delphi 7.0 在局域网内发消息
Delphi 7.0 在局域网内发消息，这个本站收集有很多例子了，学习Delphi网络编程可参考的例子，Delphi网络发消息，局域网发消息的例子，敬请关注。
局域网内发消息核心代码：
procedure TFrmSendMessage.Sendmessage(const msg,tomachine,from:string);
var
ms:PWideChar;
begin
ms:=PWIDEChar(WideString(msg));
NetMessageBufferSend(nil,pWidechar(WideString(tomachine)),pWidechar(WideString(from)),ms,length(msg)*2);
end;
procedure TFrmSendMessage.BtnSendClick(Sender: TObject);
begin
Sendmessage(mmMessage.Text,EDTo.Text,EDFrom.Text);
end;
- 2022-04-01 17:32:07下载
- 积分：1
