如何实现speedbutton的mouseon显示一副图，mouseleave显示一副图，用cm_mouseleave的话，该如何触发？急，谢！

[XQfish]

[XQfish]

进来，进来撒！

[li_zhifu]

private
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message:TMessage); message CM_MOUSELEAVE;
...
procedrue mycompont.CMMouseEnter(var Message: TMessage);
begin
...Picture.LoadFromFile(...
end;
...

[XQfish]

会给分的！

[mengbo]

在speedbutton的onmousemove事件中...loadfromfile(...);
在speedbutton的parent控件的 onmousemove事件中...loadfromfile(...);

[XQfish]

mengbo(心有独钟)的方法有问题,li_zhifu(东北人)讲的还是不明白，详细点，可以吗？

[wisenowa]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons;

type
TMysbBtn=Class(TSpeedButton)
private
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message:TMessage); message CM_MOUSELEAVE;
end;
TForm1 = class(TForm)
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
K:TMysbBtn;
implementation

{$R *.dfm}

{ TMysbBtn }

procedure TMysbBtn.CMMouseEnter(var Message: TMessage);
begin
//LoadPictuer1 Here
end;

procedure TMysbBtn.CMMouseLeave(var Message: TMessage);
begin
//LoadPictuer2 Here
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
K:=TMysbBtn.Create(self);
k.Parent:=Form1;
end;

end.

[XQfish]

动态创建的speedbutton,要设定很多参数，要有10个speedbutton，怎么办，不是累死？

[Xlake]

很简单嘛，自己做个control不就行了。