,我在写一个网吧操作监视程序,把用户使用的任意窗体包括浏览器的内容即时输入到Form1.Memo1里处理,如何实现?
解决方案 »
- delphi中某些代码不编译执行的问题
- 请问这是什么错误,急啊!
- Image.Canvas.TextOut显示
- 250告急!!找组件求救!!
- 要用fastreport实现主从打印,具体见内容,大家帮忙啊:(
- 关于调用Oracle的存储过程的问题
- 函数定义和调用的问题?(代码那错了)?
- 如何判断当前文件夹下是否有phot这个文件夹存在?
- 如何在一个string中找到我需要的子串,至少需要关于子串的多少信息呀?
- DataModule4.ClientDataSet1.Locate的问题求救!
- [提问]要做一个拨号通讯的程序,并且比较急,请各位帮忙理一下思路和实现方法。不胜感谢!希望大家集思广益!
- 怎么建视图啊?
如果只存某一个字符串还是好办。
1。再用findwindow找到该子窗体。
2,用getwindow 和Getwindowtext,getclassname得到类的名称。
3.用wm_gettext获得当前的字符串
procedure CopyButtonClick(Sender: TObject);begin If ActiveControl is TMemo then TMemo(ActiveControl).CopyToClipboard; If ActiveControl is TDBMemo then TDBMemo(ActiveControl).CopyToClipboard; If ActiveControl is TEdit then TEdit(ActiveControl).CopyToClipboard; If ActiveControl is TDBedit then TDBedit(ActiveControl).CopyToClipboard;end;
procedure PasteButtonClick(Sender: TObject);begin If ActiveControl is TMemo then TMemo(ActiveControl).PasteFromClipboard; If ActiveControl is TDBMemo then TDBMemo(ActiveControl).PasteFromClipboard; If ActiveControl is TEdit then TEdit(ActiveControl).PasteFromClipboard; If ActiveControl is TDBedit then TDBedit(ActiveControl).PasteFromClipboard;end;
If ActiveControl is TMemo then TMemo(ActiveControl).PasteFromClipboard;
就可以吗?因为程序只有TMemo接收数据不是吗?