我做一个图片按钮，要达到这样的效果：
1.鼠标移上去时换一个图片，按下去时换另一个图片，移开时，是默认的显示图片。
2.只能左键点击。
下在是我写的一点代码，因为刚学DELPHI，有些函数方法都不清楚，请大家指点一下，最好能有点代码 procedure TForm1.Image1Click(Sender: TObject); //在 Image1 的 OnClick 事件中写入
begin
PopupMenu1.Popup(Image1.ClientOrigin.X,Image1.ClientOrigin.y+30); //放入一个弹出式菜单控件并设置
end;
蛮急，谢谢大家了！
1.鼠标移上去时换一个图片，按下去时换另一个图片，移开时，是默认的显示图片。
2.只能左键点击。
下在是我写的一点代码，因为刚学DELPHI，有些函数方法都不清楚，请大家指点一下，最好能有点代码 procedure TForm1.Image1Click(Sender: TObject); //在 Image1 的 OnClick 事件中写入
begin
PopupMenu1.Popup(Image1.ClientOrigin.X,Image1.ClientOrigin.y+30); //放入一个弹出式菜单控件并设置
end;
蛮急，谢谢大家了！
解决方案 »
- [急问]cxgrid按某一列排序后的问题
- 真正免费的商业源码
- 用trim的错误。。。
- 如何读取.wma,.wmv,.asf,.avi,.mpg,.rm,.mov等格式的文件信息,就象winamp那样
- ★怎样知道什么消息对应什么字符常量？
- 菜鸟有问："有关于paradox数据库的问题"
- 如何计算代码行数？
- 谁有可以上大富翁的代理服务器的地址?如可用,给150分!看一看我的提问,从不会"拖分"的 : )
- 一个菜鸟问题：想将函数过程单独放在一个.pas中，应该怎么作？
- 请问在DBGRID中改变当前选定行的颜色？ 我想在DataSourceDataChange（）中实现。
- 如何识别二进制文件和文本文件
- delph怎么竟出奇怪事
你可以直接在BUTTON上的IMAGES 属性上写入一些图片啊。
然后在BUTTON上面ONCLICK 事件，ONMOVE 事件，只要改变那IMAGEINDEX的值就可以改变图标了吧
在窗体上加一个bitbtn
分别在bitbtn的
MouseMove 移上去的事件
MouseUp 离开的事件
MouseDown 点下的事件
中写
BitBtn1.Glyph.LoadFromFile('bmp图片');
delphi没有找到ownerdraw属性，所以就这样做了MouseMove事件，代表鼠标已经在image中了，设定一个图片
MouseDown事件，MouseUp事件，分别代表按下和弹起事件
MouseLeave事件是没有，但可以通过如下方式实现
MouseMove -> 判断是不是在本区域内 -> 是，则SetCapture,不是，则表明鼠标移出，换图片ReleaseCApture不过在Delphi下的SetCapture和ReleaseCapture好象有点问题，多试试吧
Y: Integer);
begin
BitBtn1.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+'2.bmp');
end;procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
BitBtn1.Glyph.LoadFromFile(ExtractFilePath(Application.ExeName)+'3.bmp');
end;