Unit1.h
class TForm1 : public TForm
{
__published: // IDE-managed Components
TLabel *Label1;
TLabel *Label2;
TButton *BTMcopy;
TButton *BTMpaste;
void __fastcall BTMcopyClick(TObject *Sender);
void __fastcall BTMpasteClick(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
Unit1.cpp
#include //---------------------------------------------------------------------------
void SetCopyData(TLabel *LabSender)
{
LPTSTR lptstrCopy;
HGLOBAL hglbCopy; if(LabSender == NULL)
return; if (!OpenClipboard(NULL))
return; // Allocate a global memory object for the text.
hglbCopy = GlobalAlloc(GMEM_MOVEABLE,LabSender->Caption.Length());
if (hglbCopy == NULL)
{
CloseClipboard();
return;
} // Lock the handle and copy the text to the buffer. lptstrCopy = (char*)GlobalLock(hglbCopy);
memcpy(lptstrCopy, LabSender->Caption.c_str(), LabSender->Caption.Length());
GlobalUnlock(hglbCopy); // Place the handle on the clipboard.
SetClipboardData(CF_TEXT, hglbCopy); CloseClipboard();
}
//---------------------------------------------------------------------------
void GetCopyData(void)
{
void* lpstr;
HANDLE hdlRecieve; if (!IsClipboardFormatAvailable(CF_TEXT))
return;
if (!OpenClipboard(NULL))
return; hdlRecieve = GetClipboardData(CF_TEXT);
lpstr = GlobalLock(hdlRecieve);
Form1->Label2->Caption = (char*)lpstr; GlobalUnlock(hdlRecieve);
CloseClipboard();
}
//--------------------------------------------------------------------------- void __fastcall TForm1::BTMcopyClick(TObject *Sender)
{
SetCopyData(Label1);
}
//--------------------------------------------------------------------------- void __fastcall TForm1::BTMpasteClick(TObject *Sender)
{
GetCopyData();
}
//---------------------------------------------------------------------------
-------------------------------
數學系是內功很強(邏輯/分析) 資工系是招式很多(程式技巧) 就像令狐沖VS東方不敗:D
Programmers Guide
http://anpino.begin.8d8d.com 發表人 - anpino 於 2004/01/10 14:18:03