-
socketstream-release-0.1
socket stream for delphi
- 2010-11-09 04:40:11下载
- 积分：1
-
matlabhaffman
基于哈夫曼编码的图像压缩编码程序设计
很好啊(huffman)
- 2009-12-05 19:52:16下载
- 积分：1
-
delphi7中dbExpress控件中连接sybase数据库的驱动
delphi7中dbExpress控件中连接sybase数据库的驱动-Delphi7 in control dbExpress driver connecting sybase database
- 2023-06-04 09:10:04下载
- 积分：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
-
SpeedButton应用之涂鸦小画板
很简单delphi 画板小程序，对于初学Canvas输出画刷很有帮助，可以变换不同颜色
- 2022-03-04 17:23:00下载
- 积分：1
-
Delphi 文件目录操作
一个基础的Delphi 文件目录操作示例，这里是拷贝指定的文件夹目录，一是了解复制文件的原理，二是熟悉Delphi中的目录操作技巧。
- 2022-03-15 15:35:17下载
- 积分：1
-
26
说明： SQL触发器应用实例(Delphi+数据库)，编程学习源码，很好的参考资料。(SQL trigger application examples (Delphi+ database), programming learning source, a good reference.)
- 2014-01-13 15:02:16下载
- 积分：1
-
设备管理器。就像Window的设备管理器一样。源码来自网络，本人整理而已。...
设备管理器。就像Window的设备管理器一样。源码来自网络，本人整理而已。-Device Manager. Like Window
- 2022-01-27 13:26:22下载
- 积分：1
-
filesharing
基于Delphi7的局域网文件共享软件源码
Windows的文件共享经常遇到不能正常或无法找到计算机的情况。文件共享还要设置共享属性及用户等，为简化局域网文件共享，本软件只要网络能连通，不需要任何设置就能文件共享。
使用点对点方式，不用服务器，只要在需要共享的电脑运行本程序及将要共享的文件或文件夹拖到共享区就可以。
(Delphi7 LAN-based file-sharing software source Windows file sharing is not often encountered in the normal or can not find a computer. File-sharing but also sharing of attributes and user settings and so on, to simplify file-sharing network, the software can be as long as network connectivity, does not require any set up file-sharing can be. The use of peer-to-peer manner without servers, as long as the need to share the computer running the program and want to share files or folders can be dragged share.)
- 2009-05-02 02:57:13下载
- 积分：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
