Question

跪求哪位大神赐予我delphi中shape控件的单击事件的的方法！

Answer 1

可以在shape的OnMouseDown里判断鼠标两次双击的时间
在窗体定义一个私有变量fiClickTime: Integer
在OnMouseDown事件里判断：
if UINT(GetMessageTime - FiClickTime) < GetDoubleClickTime then
begin

fiClickTime := 0;
//双击
end
else
begin
fiClickTime := GetMessageTime;
//单击
end;

Answer 2

shape控件是从TGraphicControl继承下来的，所以没有焦点也没有onclick时间，
所以如果单纯使用这个东西是没办法的，
你只能自己写控件实现了。

Answer 3

你想和它做什么呢？搞的这么心切，我通常把它用来做打印预览的页面阴影。DELPHI控件多的是，不要在一棵树上吊死，用其它组件来代替它，label标签组件就和它差不多，也响应单击事件。