end; procedure TForm1.Button4Click(Sender: TObject); begin olecontainer1.Close;//:使当前的 OLE 变成非活动状态 end; .鼠标事件操作. 1. 鼠标的事件共有三种,分别是:onmousedown,onmouseup,onmousemove 事件,这些事 件是窗体和所有可视化组件共同具有的事件.它们激发的条件相应分别为:鼠标按
下,鼠标松开以及鼠标移动. 对这三种鼠标事件的响应过程的参数是相同的,他们是: SENDER:表示产生鼠标事件的组件. BUTTON:表示哪一个鼠标按键被按下或松开.MBLEFT 左键 MBRIGHT 右 键,MBCENTER 中间键. SHIFT:用于示激发事件时 ALT,CTRL,SHIFT 键的状态. 参数 X 和 Y:这两参数的类型为整型,用来表示激发事件时鼠标的位置.X 表示横 坐标,Y 表示纵坐标. 例:
在鼠标移动时,改变 X,Y 值带动 IMAGE 移动. 步骤:1.在窗体上画出 IMAGE,设置属性及大小. 2.代码: procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin image1.Left:=x; //设置图象的左坐标等同与鼠标的 X 坐标 image1.Top:=y; end; 例:
在分别按鼠标三个不同键时显示三个不同消息框. procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin if button=mbleft then showmessage('你按下一左键'); if button=mbright then showmessage('你按下一右键'); if button=mbmiddle then showmessage('你按下一中间键'); end; 例:
当鼠标按下后产生一个字符串”HELLO” procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin canvas.TextOut(x,y,'HELLO'); //代表点击一下鼠标就在屏幕上当前鼠标位置输 出一个字符串 end;