剪切板和mouseup事件的例子

#include<Clipbrd.hpp>

void __fastcall Tvcenter::ListBox1MouseUp(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

if(Button==2) //中键

{

Memo1->Text = ListBox1->Items->Strings[ListBox1->ItemIndex];

Clipboard()->AsText = Memo1->Text;

return;

}

if(Button==1) //右键

{

if (Clipboard()->HasFormat(CF_TEXT))

{

Memo1->Text = Clipboard()->AsText;//将剪贴板中内容显示到Memo1中

ListBox1->Items->Insert(0,Clipboard()->AsText);

return;

}

}

else //左键

{

Memo1->Text = ListBox1->Items->Strings[ListBox1->ItemIndex];

}

}

//---------------------------------------------------------------------------