此个过程中
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer
怎样才能识别按下右键和点下鼠标左键呢????
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer
怎样才能识别按下右键和点下鼠标左键呢????
解决方案 »
- 我对Explorer ,hook了TextOut()、ExtTextOut()函数
- 图片压缩,求一种加密方式
- 问一个有关DBGrid的问题,请高手大大们不吝赐教!!
- 封装组件TMyChk = class(TCheckBox)中,重写了OnClick(),但在点击时却没有反应!!! 请看代码:
- 关于数据连接问题?
- 纪念Kurt Cobain柯本逝世十年,大家发表下意见
- 在遍历菜单中怎么知道当前的菜单项是父结点?
- 兄弟们,有谁熟悉笔记本的COMS密码更改??
- 关于query的用法
- Delphi中打印问题:如果一个字段中的记录太长,可否实现自动换行?
- win2000做的软件到xp上运行,软件界面会不会变样呀?
- 小问题难煞我也!只有向各位师父求教??????
mbleft 左
mbmiddle 中
mbright 右
Shift: TShiftState; X, Y: Integer);
begin
case button of
mbLeft:self.Button1.Caption:='左';
mbRight:self.Button1.Caption:='右';
end;
end;