Delphi 如何定义自已的鼠标单击事件

图片的垂直交错效果，Delphi 编写的图片垂直交错显示效果，之前就分享过这种效果，类似百叶窗的交替显示效果，可用于图片转场，不过本效果还有很多地方需要优化，当时是写给一本书，作为随书实例的，有兴趣的可参考，关于本功能的关键代码部分，请看以下代码： 　　newbmp:= TBitmap.Create; 　　newbmp.Width:=image1.Width; 　　newbmp.Height:=image1.Height; 　　bmpheight:=image1.Height; 　　bmpwidth:=image1.Width; 　　i:=0; 　　while i0 do 　　 begin 　　 newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j)); 　　 newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1)); 　　 j:=j-2; 　　 Application.ProcessMessages; 　　 end; 　　 form1.Canvas.Draw(0,0,newbmp); 　　 i:=i+2; 　　end; 　　newbmp.free;

Delphi 变速齿轮# 让时间变快减慢，其实这个似乎是做不到的，只是模拟一下，代码及描述如下： 　　procedure Speed(count:word); stdcall; 　　const ExceptionUsed = $03; { 中断号也可以用其它的中断号} 　　var 　　 IDT : array [0..5] of byte; { 保存中断描述符表} 　　 lpOldGate : dword; {存放旧向量} 　　begin 　　 asm 　　 push ebx 　　 sidt IDT {读入中断描述符表} 　　 mov ebx, dword ptr [IDT+2]{IDT表基地址} 　　 add ebx, 8*ExceptionUsed {计算中断在中断描述符表中的位置} 　　 cli {关中断} 　　 mov dx, word ptr [ebx+6] {取6,7字节 另外4字节用于门属性和选择子 } 　　 shl edx, 16d {左移16位} 　　 mov dx, word ptr [ebx] {取1,2字节 } 　　 mov [lpOldGate], edx {保存旧的中断门} 　　 mov eax, offset @@Ring0Code {修改向量，指向Ring0级代码段} 　　 mov word ptr [ebx], ax {低16位,保存到1,2字} 　　 shr eax, 16d 　　 mov word ptr [ebx+6], ax {高16位，保存到6,7位} 　　 int ExceptionUsed {发生中断} 　　 mov ebx, dword ptr [IDT+2] {重新定位到中断描述符表中} 　　 add ebx, 8*ExceptionUsed 　　 mov edx, [lpOldGate] 　　 mov word ptr [ebx], dx 　　

在图片中写入文字(写入文字后按回车键)，Delphi 图片合成 效果，图片与字符的合并，在图片中写入文字，就像PhotoShop中完成的效果，有兴趣的参考源码吧。

Delphi 钩子函数创建鼠标操作的演示，作者：冉林仓，测试内容包括三个：DemoRecord.dpr DemoPlayBack.dpr Hktest.dpr。 　　安装与调试说明： 　　如果制作的演示程序工作不正常,请注意修改HKPROC.PAS，JOURNALPLAYBACKHOOKHANDLER函数,主要是修改返回的RESULT值. 　　记录的消息序列与屏幕窗口位置、分辨率有很大的关系,哪怕是窗口位置和大小仅仅偏一点,你的回放就不一定正常,请你在使用时要反复调试，以获得比较理想的效果。

Delphi7.0将TDBGrid导入到Excel表中，测试程序先连接好SQLSERVER数据库，并将数据读取到TDBGrid中，然后再将数据从TDBGrid导入到Excel表中，为了测试方便，SQLSERVER数据库文件已经附在源码包中。以下代码片断会有参考意义，完整源码请下载： 　　//将TDBGrid表中的标题插入到Excel表中的首行 　　for I:=0 to DbName.Columns.Count-1 do 　　begin 　　 if DbName.Columns[i].Visible=False then 　　 Continue; 　　 Page.Cells[j,i+1] := DbName.Columns[i].Title.Caption; 　　 Page.Cells[j,i+1].Font.Bold := True; //设置字体为粗体 　　end; 　　Inc(j); //Excel表中的下一行 　　First; //将指针返回到TDBGrid表中数据的首行 　　while not Eof do 　　begin 　　 for i:=0 to DbName.Columns.Count-1 do 　　 begin 　　 if DbName.Columns[i].Visible=False then 　　 Continue; 　　 //将指定行中每列的数据，添加到Excel表中 　　 Page.Cells[j,i+1] := trim(DbName.DataSource.DataSet.Fieldbyname(DbName.Columns[i].FieldName).asstring); 　　 end; 　　 Inc(j); //Excel表中的下一行 　　 Next; //TDBGrid表中的下一条记录 　　end;

本源码向大家演示Delphi如何清空TImage组件中的图片，如示例截图所示，TImage组件中已经装载了一张图片，单击“清空图片”按钮，将调用以下代码清空TImage组件中的图片数据： 　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 image1.picture.graphic := nil; 　　end; 　　这是一个比较初级的Delphi图像组件用法示例，Delphi新手可参考学习。

Delphi 显示文件的播放进度，使用了Timer实现对进度的计算和显示。

Delphi 创建多个独立的子窗体 脱离父窗口而显示，但是却可通过父窗口关闭打开的所有子窗口，就是通过主窗口内的关闭按钮，关闭独立于父窗口之外的子窗口，这个功能我感觉很实用吧，源代码中也包括了多个子窗口的代码，父子窗口之间是如何关联起来的呢，请参见这个源代码实例 。

Delphi 键盘钩子 封锁 windows 热键，封锁范围，可参见以下代码： 　　 keycost := LPKBDLLHOOKSTRUCT(lParam); 　　 if (keycost.vkCode=91) then//封锁win键 　　 exit; 　　 if (keycost.vkCode=VK_ESCAPE) and (GetAsyncKeyState(VK_CONTROL)0) then 　　 exit; //封锁 ALT+TAB 　　 if (keycost.vkCode=115) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+F4 　　 if (keycost.vkCode=VK_ESCAPE) and ((keycost.flags and LLKHF_ALTDOWN)>0) then 　　 exit; //封锁 ALT+ESC 　　 if (keycost.vkCode=VK_SPACE) and (GetAsyncKeyState(VK_CONTROL)

Delphi在窗口中单击左键弹出菜单，在运行的窗体空白外，单击鼠标左键，弹出主菜单，其实和右键 菜单 是一样的原理，希望通过这个简单的例子，了解自定义窗口菜单的实现方法。