|

楼主 |
发表于 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); |
|