窗口中的弹出式右键菜单-delphi源码

Delphi 监控剪贴板的文字内容，这个监控程序可以监控复制到剪切板的文字信息，图片暂时不能监控到，具体的监控实现如下： 　　NextformHwnd:HWND;//观察链中下一个窗口句柄 　　procedure WMDrawClipBoard(var AMessage:TMessage);message WM_DRAWCLIPBOARD; 　　//处理WM_DRAWCLIPBOARD消息过程 　　 { Public declarations } 　　//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口 　　SendMessage(NextformHwnd,AMessage.Msg,AMessage.WParam,AMessage.LParam); 　　//查询剪贴板中特定格式的数据内容 　　if (Clipboard.HasFormat(CF_TEXT) or Clipboard.HasFormat(CF_OEMTEXT)) then 　　begin 　　 //处理剪贴板中内容 　　 memo1.Lines.Clear; 　　 memo1.Lines.Add(Clipboard.asText); 　　end;

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;

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;

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

Delphi控制系统静音，两个声道均不发出声音，同时若在非静态状态下，可控制左、右声道的音量大小，在代码中@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，在调节左声道的时候，不改变右声道}数字前面加＄表示是十六进制数字，(t shl 8)表示t左移8位，部分参数设置代码如下： 　　procedure TForm1.FormCreate(Sender: TObject); 　　var 　　 v:longint; 　　begin 　　 waveoutgetvolume(0,@v);//得到现在音量，@v表示指向变量v的指针（32位） 　　 trackbar1.Position:=hi(v);//设置左滑块的正确位置 　　 trackbar2.Position:=hi(v shr 16);//设置右声道滑块的正确位置 　　end;

得到系统当前目录，Delphi 得到系统当前目录，这里使用了内置的GetCurrentDirectory函数来实现，比较方便，也比较简单。获取到系统目录后，是通过窗口的标题栏显示目录路径信息，在演示截图上请看窗口的标题栏，显示有程序当前所在的路径。关于GetCurrentDirectory用法，请参见以下两行代码： 　　GetCurrentDirectory(255,dir);//获得当前目录 　　form1.Caption:=dir;

Delphi 提高图像的亮度，每次只能提升一点高度，用着比较麻烦，不过解析图像部分可以借鉴下。以下代码可参考，不过我没发现哪里是调节图片亮度的： 　　PByte := ImageBmp.scanline[y]; 　　for x:=0 to ImageBmp.Width-1 do 　　begin 　　 if (PByte[x*3]

Windows 剪贴板高级编程-Delphi源码实例，其实也不是什么高级编程，挺基础的剪贴板应用。学习如何在Delphi环境下读取Windows剪贴板的内容。在编写一些系统辅助类的软件中，可使用到这些小技巧。以下代码：将剪贴板内容读取出来，在代码的执行放入一个按钮事件中： 　　procedure TForm1.Button2Click(Sender: TObject); 　　var 　　 DataRec: TDataRecord; 　　 Data: THandle; 　　 PData: Pointer; 　　begin 　　 Data := Clipboard.GetAsHandle(CF_CUSTOMFORMAT); 　　 if Data = 0 then Exit; 　　 PData := GlobalLock(Data); 　　 Move(PData^, DataRec, GlobalSize(Data)); 　　 GlobalUnlock(Data); 　　 with DataRec do 　　 ShowMessage(Name + #13#10 + Sex + #13#10 + Hobby); 　　end;

Delphi 制作的文字屏保，文字交替变化，晃动鼠标结束屏保。本程序的亮点是对文字动画效果的生成和控制。具有文字渐变和水平平移动画。

Delphi 获取并显示当前Windows时间的例子，这个例子比较简单了，程序就完成一项功能，打开窗口后，点击按钮，即可获取当前的系统时间，并显示在窗体上，如效果图所示。