试过用sendmessage不行啊。
解决方案 »
- ◆Oracle漏洞检测系统--DBScan◆
- 数据库中怎样实现存入jpg、Gif等图片????
- sql语句问题?
- TListBox如何实现鼠标拖动,使其Items[]的内容变换位置
- Delphi+SQL2000下C/S模式的人员管理问题
- 如何判断子字符串在现成的字符串种?
- 急!!!!如何用delphi实现双modem点对点文件传输,请给出具体控件或具体代码
- 嵌套查询中,子查询的别名问题(oracle)
- 怎样取得一个DOS程序的运行结果?
- 怎样在数值型或字符型数字前面导零?
- 100分求助,关于打印切纸的问题,地址在下面
- 求救呀!!!!Devexpress MasterviewGrid控件怎么样可以导出Excel呀.
var ch:string;
begin
ch:='好';
SendMessage(Memo1.Handle,WM_CHAR,ord(ch[1]),0);
SendMessage(Memo1.Handle,WM_CHAR,ord(ch[2]),0);
end;
procedure TForm1.Button1Click(Sender: TObject);
var ch:string;
begin
ch:='好';
postMessage(Memo1.Handle,WM_CHAR,ord(ch[1]),0);
postMessage(Memo1.Handle,WM_CHAR,ord(ch[2]),0);
end;