求教高手!!!急急急(50分)

  • 主题发起人 主题发起人 foxphone2003
  • 开始时间 开始时间
F

foxphone2003

Unregistered / Unconfirmed
GUEST, unregistred user!
image控件自带的属性中没有onwheelup,onwheeldown

若要让image1响应鼠标中键的动作,如何做???
方法:
1,需要下载第三方控件,那里有,请告知。
2,自己开发包含这个属性的第三方控件,如何做!
(最好是自己开发的,这样更有成就感~~~[:D])
 
难道没有人会吗?[:(]
 
在线等大虾~~~~
 
大虾都哪去拉??
 
那個東西也要這個功能啊!!!呵呵!辦法是有的
先在窗體加上定義
Tform1=clase(Tform)
...
private
FOldGridWnd : TWndMethod;
procedure NewGridWnd (var Message : TMessage);
.......

procedure TForm1.FormCreate(Sender: TObject);
begin
FOldGridWnd:=image1.WindowProc ;
Image1.WindowProc:=NewGridWnd;
end;

procedure TForm1.NewGridWnd(var Message: TMessage);
IsNeg : Boolean;
begin
if Message.Msg = WM_MOUSEWHEEL then
begin
IsNeg := Short(Message.WParamHi) < 0;
if IsNeg then
{向上時 你要幹什麼的代碼}
else
{向下時 你要幹什麼的代碼}
end
else
Self.FOldGridWnd(Message);
end;
我沒有試過。。。呵呵!我的鼠標沒有輪子。。。。這也適用與DBGrid。這個不知道是否支持image。如故支持告訴我啊!!
 
to ing
非常感谢ing。你的这段代码能实现部分功能。
我想要做的是:
在我的文件夹里有100幅图片
想要在 向上時 ,就能翻看上一幅图片
想要在 向下時 ,就能翻看下一幅图片
这个想法能实现吗?
盼ing回复中》》》》》》
 
可以。隻要image能收到的消息你撲獲它就可以做你想做的事了
 
上面的代码有点怪,它在窗口中随即的能获得鼠标滚轮的消息
我只想在image1的图片上获得消息,该怎么做呢?

而且还想获得滚轮拉过的长度(因为滚动一下,翻一张图片。滚动一长下,翻多张图片)
有该怎么做呢?
 
接受答案了.
 
后退
顶部