procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then
begin
//
end;
end;
Shift: TShiftState; X, Y: Integer);
begin
if ssleft in shift then
begin
//
end;
end;
解决方案 »
- 在一个treeview的node没有子节点了,该node有超链接功能
- 求用多线程实现ftp下载的例子
- 急救!!!有关如何修改数据库中表的名称的一个小问题!!!请高手赐教!!!!!!
- 请大家帮忙推荐好的打包软件,高分回报!
- 招聘
- 关于数据库开发的一些问题征集建议!进者有分!!
- 高分求一书籍
- delphi在程序运行阶段怎么指定Ttable的索引属性?
- 三层结构系统的问题,SERVICE类型的应用服务器是不是开一个客户端就增加一个线程?
- sql的问题,select * from table where date1>=''01-10-10'' 到底行不行的
- 请问在Delphi中变量数组如何初始化(不是常量数组)?
- 如何以最快速度注册1000个com业务组件?
if(GetKeyState(VK_LBUTTON)<0)
{
}
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if button = mbleft then//判断
begin
beep;
end;
end;
也可以