三个image各载一个图片,且放在一块。图片载着三态按钮图片(按前是一种图,移到是一种图,按下是一种图),请问怎样实现。(50分)

D

dedema

Unregistered / Unconfirmed
GUEST, unregistred user!
三个image各载一个图片,且放在一块。图片载着三态按钮图片(按前是一种图,移到是一种图,按下是一种图),请问怎样实现。
 
应该再加一个IMAGE,用来接收鼠标按的动作
假设是Image0
按前是Image1
移到是Image2
按下是Image3

TForm1.OnShow() //窗口显示时
Image1.Visible := False;
Image2.Visible := False;
Image3.Visible := False;
Image0.Picture := Image1.Picture

TForm1.Image0OnEnter //鼠标进入时
Image0.Picture := Image2.Picture

TForm1.Image0OnDown //按下时
Image0.Picture := Image3.Picture

TForm1.OnEnter //鼠标移出Image0时
Image0.Picture := Image1.Picture
 
我觉得公用1个image,其他3张图在程序启动时动态创建3个TBitmap,然后loadfromfile比较好。
 
我感觉用speedButotn按纽就可以了。onmousemove
onmousedown
onmouseup 三个事件中各写一端代码
 
一个image1控件,image1.onmouse.over,.down,up分别对应加载三幅图[8D]
 
多人接受答案了。
 
顶部