怎么编写复制命令(30分)

qsdl · 2004-02-05

就是在edit，memo或dbgrid中用buttonclick把一段选定字符或图片复制到剪贴板，即ctrl＋C

andy263 · 2004-02-05

edit1.SelStart := 2; edit1.SelLength := 2; edit1.CopyToClipboard;

ivw · 2004-02-05

edit1.CopyToClipboard memo1.CopyToClipboard dbgrid用sendmessage() 。

app2001 · 2004-02-05

你看这个资料对你有没有帮助吧 这个技巧是参考Delphi的剪贴板类的实现来完成的。将一个流的内容放入剪贴板， 首先要注册你自已的格式，使用RegisterClipboardFormat()函数 然后做下面三步：     1.创建一个内容流，并将内容写进去     2.创建一个全局的内容区，并将流的内容写入     3.调用ClipBoard.SetAsHandle()将内容写入剪贴板 将内容写入剪贴板中 var   hbuf    : THandle;   bufptr  : Pointer;   mstream : TMemoryStream; begin   mstream := TMemoryStream.Create;   try     {-- 处理流的代码 --}     hbuf := GlobalAlloc(GMEM_MOVEABLE, mstream.size);     try       bufptr := GlobalLock(hbuf);       try         Move(mstream.Memory^, bufptr^, mstream.size);         Clipboard.SetAsHandle(CF_MYFORMAT, hbuf);       finally         GlobalUnlock(hbuf);       end;     except       GlobalFree(hbuf);       raise;     end;   finally     mstream.Free;   end; end; 请注意不要将分配的全局缓冲区释放，这个工作由剪贴板来完成，在读出数据中 你应该将它复制后处理。 将剪贴板内容读出来 var   hbuf    : THandle;   bufptr  : Pointer;   mstream : TMemoryStream; begin   hbuf := Clipboard.GetAsHandle(CF_MYFORMAT);   if hbuf <> 0 then begin     bufptr := GlobalLock(hbuf);     if bufptr <> nil then begin       try         mstream := TMemoryStream.Create;         try           mstream.WriteBuffer(bufptr^, GlobalSize(hbuf));           mstream.Position := 0;           {-- 处理流的代码 --}         finally           mstream.Free;         end;       finally         GlobalUnlock(hbuf);       end;     end;   end; end; ******************************************** gototop99 (巴蒂) :怎样拷贝特殊记录? 200分相送！！！ 如：拷贝   TMyddd=record      a1:string;      a2:integer;   end; 类型的记录到剪贴板中，怎么做啊？？ 回复人： laihecongxi(兴哥) ( ) 信誉：100  2002-12-02 11:22:00  得分:0       //delphi6测试通过 type   TMyddd=record      a1:string;      a2:integer;   end; ................ var   Myddd  :  Tmyddd;   pMyddd : ^Tmyddd; procedure ............................. var   mHnd : Thandle; begin   //记录赋值   Myddd.a1 := 'AAA';   Myddd.a2 := 222;   //存数据   OurFormat:=RegisterClipboardFormat('CF_TMyddd');     if OpenClipboard(Handle) then      EmptyClipboard;   mHnd := GlobalAlloc(GMEM_DDESHARE or GMEM_MOVEABLE,SizeO(TMyddd));   pMyddd := GlobalLock(mHnd);   new(pMyddd);   pMyddd^.a1  :=  Myddd.a1;   pMyddd^.a2  :=  Myddd.a2;   GlobalUnLock(mHnd);   SetClipboardData(OurFormat,mHnd); end; var MemberInClip : Thandle; begin  //读数据  if Clipboard.HasFormat(OurFormat) then begin  if OpenClipboard(Handle) then   begin       MemberInClip:=GetClipboardData(OurFormat);       //new(PMyddd);       //pMyddd := GlobalLock(MemberInClip);       Myddd.a1  := pMyddd^.a1;       Myddd.a2  := pMyddd^.a2;   GlobalUnLock(MemberInClip);   CloseClipboard();   with Memo1.Lines do begin    Clear;    Add('Clipboard has TMember data:');    Add(Myddd.a1);    Add(inttostr(Myddd.a2));   end;  end;  end;   end;

qsdl · 2004-02-05

怎么编写复制命令(30分)

qsdl

Unregistered / Unconfirmed

andy263

Unregistered / Unconfirmed

ivw

Unregistered / Unconfirmed

app2001

Unregistered / Unconfirmed

qsdl

Unregistered / Unconfirmed

Similar threads