如何能让timage响应得到焦点和失去焦点的事件! rt! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 这个控件应该是没有这个属性的吧,可以自己写代码来解决,比如在Image的边缘动态画一个矩形,焦点在它上面时就显示该矩形,否则隐藏该矩形。当然,可能还会有更好的方法,等待高手的解答... Timage是从TGraphicControl继承下来的,根本没有不能焦点.想实现的功能是什么? TImage是不可能有焦点的,click事件倒是有 点中可以用click啊,如果是移到上面就显示一个信息提示可以用onmousemove。 //变通的方法:把Image放在Panel上,处理Panel的OnEnter和OnExit事件~~object Panel1: TPanel BevelOuter = bvNone TabStop = True OnEnter = Panel1Enter OnExit = Panel1Exit object Image1: TImage OnMouseDown = Image1MouseDown endendprocedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin TImage(Sender).Parent.SetFocus;end;procedure TForm1.Panel1Enter(Sender: TObject);begin Caption := 'Enter';end;procedure TForm1.Panel1Exit(Sender: TObject);begin Caption := 'Exit';end; (--在线等,立刻送分--) 请问:如何单击Button弹出PopupMenu中的指定菜单? 关于在给定的范围内生成正态分布的随机数 delphi7问题 报表问题 怎样才能在字符串里面插入单引号 问一个鼠标按键问题.分全部散给你们.RMB也行 如何制作一个安装软件 什么地方有倚天中文(繁体)下载,或者有谁有这种倚天中文(繁体)给我一份,高分送出,谢谢! 不是说delphi 支持动画吗,我做了gif 动画却发现image根本不支持gif 格式 动态添加ActiveX控件,不是通过import进来再动态生成Txxxx 鼠标移动时怎么得到DBGrid方格中的内容? sql語句寫入delphi中
想实现的功能是什么?
BevelOuter = bvNone
TabStop = True
OnEnter = Panel1Enter
OnExit = Panel1Exit
object Image1: TImage
OnMouseDown = Image1MouseDown
end
end
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
TImage(Sender).Parent.SetFocus;
end;procedure TForm1.Panel1Enter(Sender: TObject);
begin
Caption := 'Enter';
end;procedure TForm1.Panel1Exit(Sender: TObject);
begin
Caption := 'Exit';
end;