M mlzhou Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-24 #5 在onmousedown事件中判断 if Button =mbRight then 给分吧
K ka_lee Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-24 #6 OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) 其中 TMouseButton = (mbLeft, mbRight, mbMiddle); 是哪个键。
OnMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) 其中 TMouseButton = (mbLeft, mbRight, mbMiddle); 是哪个键。
P peakcao Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-24 #7 以下是在网页中禁止点右键的函数： <SCRIPT language=JavaScript> function click() { if (event.button==2) { alert('我不许你点右键，呵呵！') ; } } document.onmousedown=click </SCRIPT>
以下是在网页中禁止点右键的函数： <SCRIPT language=JavaScript> function click() { if (event.button==2) { alert('我不许你点右键，呵呵！') ; } } document.onmousedown=click </SCRIPT>
C coolbaby Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-24 #9 onmousedown onclick onmouseup
我 我心飞翔 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-24 #10 procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button =mbLeft then begin //事件 end; end;
procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button =mbLeft then begin //事件 end; end;
