-
Delphi 7在数据库中存取图像
Delphi 7在数据库中存取图像，这个示例代码较早，面向的图像格式为BMP，JPG、GIF之类的图片格式未做测试，或许也可以。示例中将4张图片保存到数据库中，然后程序将从数据库中输出这些图片，通过程序的操作，你只需选择对应的图片，即可从数据库中读取出对应的图片。
- 2022-10-12 00:05:03下载
- 积分：1
-
Delphi 简单获取Windows时间的例子
简单获取Windows时间-Delphi源代码，改时间的小程序，在Windows自带的时间管理中也可完成系统时间的修改，这个只是一个帮助了解Windows与Delphi编程的例子，如何通过Delphi的程序来修改Windows时间，大致就是这样实现的。可参见以下源码：
procedure TForm1.Button1Click(Sender: TObject);
var
Dtimer : TSystemTime;
hh,Ghh : Integer;
begin
hh := StrToInt(Trim(Edit4.Text));
if hh < 8 then
Ghh := 16 + hh
else
Ghh := hh - 8;
with Dtimer do
begin
wYear:=StrToInt(Edit1.Text);
wMonth:=StrToInt(Edit2.Text);
wDay:=StrToInt(Edit3.Text);
wHour:=Ghh;
wMinute:=StrToInt(Edit5.Text);
wSecond:=StrToInt(Edit6.Text);
end;
SetSystemTime(Dtimer);
end;
- 2022-07-09 18:55:23下载
- 积分：1
-
EI3.0(DELPHI源码)
EI3.0(DELPHI源码)，据说挺完整的，可以下载一下试试
- 2022-03-30 08:16:31下载
- 积分：1
-
取消窗体标题栏的关闭按钮-Delphi代码
Delphi 取消窗体标题栏的关闭按钮，也就是单击窗口右上角的关闭按钮，窗体并不会关闭，让关闭按钮失去了作用，用户可通过单击窗口中的自定义按钮来关闭窗口，这样就相当于取消了窗体标题栏中的关闭按钮。
- 2022-07-04 03:53:29下载
- 积分：1
-
Delphi7 向XML中添加RTTI信息
Delphi7.0 向XML中添加RTTI信息，这个例子挺简单，希望大家喜欢，面向Delphi新手的，高手请绕道哦，下面是本例Delphi向XML中添加RTTI信息的关键性代码：
procedure TForm1.ComponentToDOM(iNode: IXmlNode; Comp: TPersistent);
var
nProps, i: Integer;
PropList: PPropList;
Value: Variant;
newNode: IXmlNode;
begin
nProps := GetTypeData (Comp.ClassInfo)^.PropCount;
GetMem (PropList, nProps * SizeOf(Pointer));
try
GetPropInfos (Comp.ClassInfo, PropList);
for i := 0 to nProps - 1 do
begin
Value := GetPropValue (Comp, PropList [i].Name);
NewNode := iNode.AddChild(PropList [i].Name);
NewNode.Text := Value;
if (PropList [i].PropType^.Kind = tkClass) and (Value 0) then
if TObject (Integer(Value)) is TComponent then
NewNode.Text := TComponent (Integer(Value)).Name
else
ComponentToDOM (newNode, TObject (Integer(Value)) as TPersistent);
end;
finally
FreeMem (PropList);
end;
end;
- 2022-01-26 03:00:57下载
- 积分：1
-
Delphi 如何使程序不出现在任务栏上
Delphi 如何使程序不出现在任务栏上，常规情况下，运行的程序都会在任务栏有一个图标窗口，方便用户操作，不出现在任务栏上也可以，不过不太符合常规，有点隐藏程序的嫌疑，以下代码是实现此功能的：
procedure TForm1.FormCreate(Sender: TObject);
begin
with Application do
SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE) and not WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);
SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE or SWP_NOSIZE);
end;
- 2023-03-26 04:55:03下载
- 积分：1
-
Delphi 使窗体始终在最前面
Delphi 使窗体始终在最前面，不几行代码实现的置顶窗口，大家对这种窗口相信都不会太陌生，不被其它的窗口遮挡，显示在最前面，典型的应用像一些视频播放器的播放窗口，在播放视频时可设置显示在最顶端，你可以边工作边看电影啦！详细实现请参考源代码。
- 2022-03-14 11:14:48下载
- 积分：1
-
delphi写的串口rfid读卡器源码
用delphi编写的rfid读卡器程序，支持epcc1-g2和18000-6b，囊括了所有操作，对于进行rfid开发的人，应该有很大的帮助
- 2023-08-20 00:25:04下载
- 积分：1
-
Delphi 目录操作范例：改变当前目录
Delphi 目录操作范例：改变当前目录，先获取当前的目录路径，然后改变这个目录路径，文件当前在此目录，那么如何修改文件路径呢？
procedure TForm1.Button1Click(Sender: TObject);
begin
try
chdir(Edit2.Text);
finally
getdir(0,result);
Edit2.Text := result;
end;
end;
源代码仅供参考。
- 2022-11-19 16:05:03下载
- 积分：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
