复制的代码是S:=memo1.seltext;黏贴的代码是memo1.seltext:=s;请问里面的seltext可否改为text?seltext和text有什么区别吗?
另外,在同一程序中看见有下面这样一行代码,但不知道起什么作用,mousedown是干什么用的?
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
popupmenu1.popup(mouse.cursorpos.x,mouse.cursorpos.y);
end;
另外,在同一程序中看见有下面这样一行代码,但不知道起什么作用,mousedown是干什么用的?
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button=mbright then
popupmenu1.popup(mouse.cursorpos.x,mouse.cursorpos.y);
end;
2、点右键的弹出菜单popupmenu1
http://del.cnblogs.com如果运气好的话,也许找得到你要的答案。:-)