粘贴报错

huangyue · 发表于 2010-4-6 09:40:43

以下的代码在平台运行功能是没有报错的，，不过在系统初始化，IE运行就报错了，

SendMessage(ActiveControl.Handle,Borland.Delphi.Messages.WM_PASTE,0,0);

huangyue · 发表于 2010-4-6 10:33:46

难道是IE对delphic 语法有排斥？

SMP · 发表于 2010-4-6 10:56:52

楼主加个调试
if not Assigned (ActiveControl) then
放在这个SendMessage条件前，判断一下，看是不是ActiveControl为空了啊！

huangyue · 发表于 2010-4-6 11:39:13

ActiveControl是空的。。。我是在表单中填写数据，鼠标在表单某个单元格中，然后就用上面的那行代码粘贴剪贴板的数据。。。。。。
来个解决方法吧！

huangyue · 发表于 2010-4-6 15:50:11

版主，来高手啊

SMP · 发表于 2010-4-6 17:12:12

能否不用ActiveControl属性，直接得到自己要定位的控件么？

huangyue · 发表于 2010-4-6 17:34:31

我是粘贴数据到表单里面的单元格里啊

huangyue · 发表于 2010-4-7 09:18:50

我是粘贴数据到表单里面的单元格里啊

SMP · 发表于 2010-4-7 10:49:49

说说过程，为什么要用发消息的方式来粘贴啊？消息最早又是怎么发生的？

huangyue · 发表于 2010-4-7 14:34:39

我的需求就是要先选取另一个窗体中的DataGrid1的某个字，，然后插入到表单文档中

在另一个窗体DataGrid1中
先复制内容到剪贴板
procedure TMAINFORM.BitBtn2Click(Sender: TObject);
begin
  fz := DataGrid1.DataSource.DataSet.FieldByName(DataGrid1.FocusedField.FieldName).AsString;
  Clipboard.SetTextBuf(PChar(fz));
  Self.ModalResult := Business.Forms.Controls.mrOK;
end;

然后另个窗体就插入剪贴板的信息。
SendMessage(ActiveControl.Handle,Borland.Delphi.Messages.WM_PASTE,0,0);

		自动登录	找回密码
密码			立即注册

粘贴 报错

粘贴报错