摘要：{ 添加timage并载入一幅24位或32位bitmap ；
添加tbutton 并在onclick 事件下加入下面代码}
procedure tform1.button1click(sender: tobject);
procedure fadeout(const bmp:timage; pause:integer);
var
bytesporscan: integer;
w,h: i......
摘要：新建一个delphi应用程序，然后在窗口中把组件栏activex项中的realplayer组件拉入窗口中，命名为realaudio1，出现一个简化的realplayer界面。但它只有控制界面，没有视频图像界面。这不要紧，在realplayer组件的controls属性中加入“imagewindow”，然后点击下面的窗口，视频图像开始出现，在“imagewindow”后接着添加“controlpan......
注册右键菜单 用于开发windows程序的语言不少,一般来说小型通用程序用delphi是个不错的选择,没听说过吗???“聪明的程序员用delphi”.我们上网常用的foxmail.网络蚂蚁等都是用它开发的.
兴致来了用delphi做个小程序,比方说:“大文件切割机”,要与朋友们共享,想没想过将它注册到系统的右键中?朋友们只需在文件上点击右键,就可以选择启动你的杰作来工作了. 【程序编程相关:
Delphi中应用临时文件】 【推荐阅读:
动态取得网络邻居的工作组和计算机名】
现在就演示一下如何召唤右键: 【扩展信息:
Delphi如何实现文件关联】
procedure tform1.button1click(sender: tobject);
var
a:tregistry;
begin
a:=tregistry.create;
a.rootkey:=hkey_classes_root;
//用openkey打开一个主键,如果此主键不存在则自动创建
if a.openkey(*\shell\cutbig,true) then
begin
//用writestring将设置值写入打开的主键
a.writestring(,切割与组装(&k));
a.closekey;
end;
if a.openkey(*\shell\cutbig\command,true) then ...
下一页 摘要：大体步骤：
1：先创建一个窗体。
2：将一个label1，一个按扭 bitbtn1,bittn2 放入窗体。
3：对bitbtn1 的onclick 事件编程。
编程如下：
.......
var
tp:ttcpclient;
strname,straddr:string;
begin
tp:=ttcpclient.create(self);
tp.close;
tp.open;
strname:......
