Mouse-Over-Effekt für TBitBtn (Bitmap Button) erstellen-WIE?

[linacaro]

Hallo zusammen! :wall:
Ich würde meinem Bitmap Button in Delphi 7 gern einen Mouseovereffekt zuweisen (z.B. soll sich das Bild des Mauszeigern ändern). Leider bietet mir Delphi für den Button keinen vorgefertigten Mouseover an. Muss ich mir selber einen schreiben? Wie geht denn das? Wäre echt SUPER :lol:
wenn mir da jemand weiterhelfen könnte!

Grüßli

Caro

[Meflin]

upps...
:oops: das hilft dir auch nicht weiter...

[linacaro]

ja, schon, aber die reagiert auf jegliche Mausbewegung, auch außerhalb des buttons - zumindest bei mir

[Meflin]

siehe post oben ^ ;-)

[Gandalfus]

Delphi-Quellcode:

TCustomButton = class(TButton)
privat
  Procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  Procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
end;

Procedure TCustomButton .CMMouseEnter(var Message: TMessage);
begin
  
end;

Procedure TCustomButton .CMMouseLeave(var Message: TMessage);
begin
  
end;

[linacaro]

delphi meckert (der compiler) dann immer rum, er würde TBtmBtn nicht kennen :-(

ich habe aus einem anderen forum sowas ähnliches für eine scrollbox gefunden und hab einfach oben bei class anstann TScrollBox TBtmBtn reingeschrieben... aber der compiler meckert - warum nur? :?:

************************************************** ***
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TScrollBoxEx = class (TBitBtn)
private
{ Private declarations }
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMouseEnter(var msg: TMessage);
message CM_MOUSEENTER;
procedure CMMouseLeave(var msg: TMessage);
message CM_MOUSELEAVE;
protected
{ Protected declarations }
procedure DoMouseEnter; dynamic;
procedure DoMouseLeave; dynamic;
public
{ Public declarations }
published
{ Published declarations }
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Additional', [TScrollBoxEx]);
end;

{ TScrollBoxEx }

procedure TScrollBoxEx.CMMouseEnter(var msg: TMessage);
begin
DoMouseEnter;
end;

procedure TScrollBoxEx.CMMouseLeave(var msg: TMessage);
begin
DoMouseLeave;
end;

procedure TScrollBoxEx.DoMouseEnter;
begin
if Assigned(FOnMouseEnter) then
FOnMouseEnter(Self);
end;

procedure TScrollBoxEx.DoMouseLeave;
begin
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;

end.