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.