剪切复制和粘贴在鼠标右键里的编程,怎样用函数表示? (10分)

一

一剑飘雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #1

剪切复制和粘贴在鼠标右键里的编程,怎样用函数表示?
请写下代码!(我指的是对文件的操作)

 

J

jbas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #2

CopyToClipboard，PasteFromClipboard
CutToClipboard

 

I

ili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-08

• #3

RichEdit1.Perform(WM_CUT,0,0);
RichEdit1.Perform(WM_COPY,0,0);
RichEdit1.Perform(WM_Paste,0,0);

 

M

minkerui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-09

• #4

with memo
CopyToClipboard
PasteFromClipboard
CutToClipboard

 

一

一剑飘雪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-22

• #5

我的意思是指跟资源管理器一样在文件夹上点右键出现的复制和粘贴里的代码是怎么编的，
我不是指弹出菜单的代码。

 

O

odbc1230

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-10

• #6

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Node: TTreeNode;
begin
if Button = mbRight then
begin
Node := TreeView1.GetNodeAt(X,Y);
if Node<>nil then
Node.Selected:=true
else
showmessage('Null');
end;
end;