兴趣讨论,来者有分! 你是指在程序中根据图片的大小而调整imagelist的高度吧? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Imagelist的高度和宽度是可以调整的我试过了只是在高度改变以后,加入的图片都被晴空了 1、先调整好imagelist上面的高度和宽度后再导入图片。肯定可以!2、onMouseEnter():可以直接利用onMouseMove() OnMouseLeave():他的功能可以利用Form1.onMouseMove()来实现 onMouseEnter(),onMouseLeave()还是调用消息吧。消息处理@ 1.先设置imagelist的高度,宽度然后再导入图片。2.重写TLabel控件就行了。unit csdnLabel;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TCsdnLabel = class(TLabel) private FMouseLeave, FMouseEnter: TNotifyEvent; procedure CMMouseMouseEnter(var Message : TMessage);Message CM_MouseEnter; procedure CMMouseMouseLeave(var Message : TMessage);Message CM_MouseLeave; protected public published property OnMouseEnter: TNotifyEvent read FMouseEnter Write FMouseEnter; property OnMouseLeave: TNotifyEvent read FMouseLeave Write FMouseLeave; end;procedure Register;implementationprocedure Register;begin RegisterComponents('Samples', [TCsdnLabel]);end;{ TcsdnLabel }procedure TcsdnLabel.CMMouseMouseEnter(var Message: TMessage);begin if Assigned(FMouseEnter) then FMouseEnter(Self); { 还可加入你自己的处理代码: }end;procedure TcsdnLabel.CMMouseMouseLeave(var Message: TMessage);begin if Assigned(FMouseLeave) then FMouseLeave(self); { 还可加入你自己的处理代码: }end;end. 先设置imagelist的高度,宽度然后再导入图片。但我记得imagelist的高度,宽度一定确定,则加入其中的图片都将采用相同的格式,符合你的要求吗? 对于图片的格式有限制.或是.bmp或是.ico.如果简单点就用onmousemove啦.如果label是在图片上.是否可以用image1.onmousemove啊?? 现在发现问题,就是转换label颜色时,如果选择transparent.那么转换颜色失败.怎么解决这个问题呢? 1、先调整imagelist的长宽,然后再加入image2、laza的做法也可以 重复::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::因为加了transparent,所以字体颜色转换失败.但不加,又显示一个块.怎么解决呢?????????????? mouseenter mouseleave还是调用SETCAPTURE,RELEASECAPTURE 最好。 设置字体颜色后Update Label就可以了 大虾们,有谁有SOCKET方面的代码 IDTcpServer丢数据?请高手指教&…… [求助]关于TSaveDialog的问题 多次IDHTTP 问题 关于控件的问题!!!!!!!!!! HTML文件的预览 高分请教,ADO 帮帮我 我刚学delphi !!!!!谁知道那里有他的中文帮助?! 各位大虾:哪位有时钟程序的源代码 view-->Type library的問題??求救 哪里有delphi6下载?? 我做的这个软件只卖10元(源代码),大家必须邮寄。
只是在高度改变以后,加入的图片都被晴空了
2、onMouseEnter():可以直接利用onMouseMove()
OnMouseLeave():他的功能可以利用Form1.onMouseMove()来实现
消息处理@
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;type
TCsdnLabel = class(TLabel)
private
FMouseLeave, FMouseEnter: TNotifyEvent;
procedure CMMouseMouseEnter(var Message : TMessage);Message CM_MouseEnter;
procedure CMMouseMouseLeave(var Message : TMessage);Message CM_MouseLeave;
protected
public published
property OnMouseEnter: TNotifyEvent read FMouseEnter Write FMouseEnter;
property OnMouseLeave: TNotifyEvent read FMouseLeave Write FMouseLeave; end;procedure Register;implementationprocedure Register;
begin
RegisterComponents('Samples', [TCsdnLabel]);
end;{ TcsdnLabel }procedure TcsdnLabel.CMMouseMouseEnter(var Message: TMessage);
begin
if Assigned(FMouseEnter) then FMouseEnter(Self);
{
还可加入你自己的处理代码:
}
end;procedure TcsdnLabel.CMMouseMouseLeave(var Message: TMessage);
begin
if Assigned(FMouseLeave) then FMouseLeave(self);
{
还可加入你自己的处理代码:
}
end;end.
如果简单点就用onmousemove啦.
如果label是在图片上.是否可以用image1.onmousemove
啊??
怎么解决这个问题呢?
2、laza的做法也可以
因为加了transparent,所以字体颜色转换失败.
但不加,又显示一个块.
怎么解决呢??????????????
mouseleave
还是调用SETCAPTURE,RELEASECAPTURE 最好。