In das Event einer Komponente einhacken.

[Popov]

Ok, beides sieht schon mal eleganter aus. Man könnte damit sogar schon leben.

Bleibt aber das Problem, dass eine manuelle Umstellung der OnClick Prozedur im Code, das Ganze unwirksam macht.

[Zacherl]

Zitat von Popov:

Bleibt aber das Problem, dass eine manuelle Umstellung der OnClick Prozedur im Code, das Ganze unwirksam macht.

Das wirst du mit einfachen Boardmitteln nicht verhindern können.

Was vermutlich auch noch ginge: Die virtuelle Click Methode von TPanel in der V-Table auf eine eigene Funktion umlenken. Ist aber ziemlich hacky.

[Uwe Raabe]

Du kannst auch eine Interceptor-Klasse mit einer überschriebenen Click-Methode deklarieren. Wenn du dafür eine eigene Unit verwendest, brauchst du lediglich diese Unit nach dem Vcl.ExtCtrls in die uses-clause einfügen. Das VCL-Streaming sorgt dann für die korrekte Instanzierung.

Delphi-Quellcode:

unit uMyPanel;

interface

uses
  System.SysUtils, System.Classes, Vcl.ExtCtrls;

type
  TPanel = class(Vcl.ExtCtrls.TPanel)
  private
    FOnBeforeClick: TNotifyEvent;
  protected
    procedure BeforeClick; virtual;
    procedure Click; override;
  public
    property OnBeforeClick: TNotifyEvent read FOnBeforeClick write FOnBeforeClick;
  end;


implementation

procedure TPanel.BeforeClick;
begin
  if Assigned(FOnBeforeClick) then
    FOnBeforeClick(Self)
end;

procedure TPanel.Click;
begin
  BeforeClick;
  inherited;
end;

end.

[BadenPower]

Du kannst Dich auch in die MessageQueue der ParentForm einklinken und dann mit Hilfe des Handles des Panels, welches ja Deiner Klasse bekannt ist, auswerten, ob dieses angeklickt wurde.