|

楼主 |
发表于 2010-4-8 10:46:59
|
显示全部楼层
就是说我要在表单文档中插入字符,然后就另外做了个窗体(子窗体),子窗体中加入了datagrid,用来存放字符。我现在在表单的功能中,光标在表单文档中的某个字段中,点击按钮,弹出字符的子窗体,选中子窗体中的字符,就插入到光标所在的位置。
我的需求就是要先选取另一个窗体中的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); |
|