Neue Klasse (Nachkommen)

[LarsSchwencke]

Hallo,

folgendes Problem.
Ich möchte einen Nachkommen der Klasse TSpeedButton so verändern dass
eine Metode X ausgeführt wird wenn sich das Feld Enabled ändert.
Kennt jemand eine Lösung?
Kleines Demo wäre nicht schlecht.

Vielen Dank für Eure bemühungen.

MfG
Lars

[baumina]

Ich würde es so in der Art versuchen:

Delphi-Quellcode:

  TMySpeedButton = class(TSpeedButton)
  private
    procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
  end;

[Sir Rufo]

@baumina
Diese Nachricht wird schon von TControl empfangen.
Dort wird aber einfach nur TControl.Invalidate aufgerufen und die ist

Delphi-Quellcode:

public

und

Delphi-Quellcode:

virtual

.

Delphi-Quellcode:

  TMySpeedButton = class( TSpeedButton )
  private
    FOldEnabled : Boolean;
    FOnEnabledChanged : TNotifyEvent;
  public
    procedure Invalidate; override;
  published
    property OnEnabledChanged : TNotifyEvent read FOnEnabledChanged write FOnEnabledChanged;
  end;

{ TMySpeedButton }

procedure TMySpeedButton.Invalidate;
begin
  inherited;
  if FOldEnabled <> Enabled then
  begin
    FOldEnabled := Enabled;
    if Assigned( OnEnabledChanged ) then
      OnEnabledChanged( Self );
  end;
end;

[baumina]

Aber wenn ich einen Blick in Buttons.pas werfe, holt sich der TSpeedButton das auch so ab.

[Sir Rufo]

Zitat:

Zitat von baumina (Beitrag 1244726)

Aber wenn ich einen Blick in Buttons.pas werfe, holt sich der TSpeedButton das auch so ab.

stimmt auch wieder :)

aber dadurch überschreibt man das Handling für den originalen SpeedButton ...

[DeddyH]

AFAIK ist das auch das ganz normale Vorgehen, wenn man eine bestimmte Message gesondert behandeln möchte.

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1244728)

AFAIK ist das auch das ganz normale Vorgehen, wenn man eine bestimmte Message gesondert behandeln möchte.

Nur doof, wenn dann der SpeedButton zwar die Eigenschaft Enabled wechselt, die Anzeige dazu aber nicht mehr passt ;)

[DeddyH]

Dazu ruft man ja auch inherited auf.

[Sir Rufo]

Zitat:

Zitat von DeddyH (Beitrag 1244733)

Dazu ruft man ja auch inherited auf.

aua :wall: ... ich brauch wohl einen Kaffee (oder zwei :mrgreen:)

[LarsSchwencke]

Hallo,

vielen Dank für die Menge an Infos.
Habe es so realisiert wie baumina es
vorgeschlagen hat und es funktioniert bestens.
Danke.:-D

MfG
Lars