易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi开发控件问题

做一个按钮控件，要求从TImage继承，鼠标移上去后加载焦点图片，鼠标离开后显示默认图片；，允许在设计期静态加载，也允许在运行期动态加载。
直接利用image加mousein/out事件不行吗？
引用
直接利用image加mousein/out事件不行吗？


估计他们的想法是做一个按钮控件，能变成图片形状的按钮
以前好像见过很多这样的小控件。。。。。。。。。现在都没兴趣了

有很多现成插件啊，RZIMAGEBUTTON 等等。

其实你的要求很简单的
就是一个支持"多态"(非OO的多态)的图片按钮吧,
这种东西完全没必要自己做一个,现成的好多.
raize,sui,tms...这些组件包中都有类似的图片按钮.
RZ包里的效果就不错
如果想学习还是自己做好了,比较简单

继承一下TImage 再写一下鼠标事件

最重要的
procedure Register;
begin
  RegisterComponents('My', [TmyButton]);
end;
注册一下
引用
Component->New Component
Ancestor Type: Timage
其他的自己填,生成一个pas文件,然后加入下面的代码

声明:
Delphi(Pascal) code
  privateprocedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

实现
Delphi(Pascal) codeprocedure timage1Button.CMMouseEnter(var Message: TMessage);begin
  self.Picture.LoadfromFile('C:\WINDOWS\Rhododendron.bmp&#


相关问答：

delphi动态数组如何去掉一个元素

procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......

关于避免delphi版权或者收律师函的方案。

最近换了家公司，郁闷的是关于Delphi的问题，公司之前用的也是D版Delphi7企业版的。后来被送了律事函以后，就强制改用Delphi7个人版，剧说这个版本是免费版，或者说很便宜，如果查出来，就买个好了。这下可好。苦了� ......

找delphi程序员

有没有用delphi的兄弟想跳槽的？
地点在深圳
有的话就联系我：
QQ：377909364
email：e_hua999@163.com
读大学时候玩了一下, 帮xd顶一下

jf

up

帮顶，但不在深圳

JF
......

求一段delphi代码转C#代码，急用，可人民币支付，谢谢

急用。联系QQ：8775262，谢谢。
需要进行DllImport的地方直接写DLLImport.方法名。
如：DLLImport.GlobalAddAtom(……);
文件：UShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......
© 2009 ej38.com All Rights Reserved. 关于E健网 | 联系我们 | 站点地图 | 赣ICP备09004571号