MouseDown Procedure einer Instanz überschreiben

[DeddyH]

Oder etwas ausführlicher:

Delphi-Quellcode:

type
  TMyComponent = class(TWinControl)
  private
    FPanel: TPanel;
    procedure PanelMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X: Integer; Y: Integer);
  protected
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X: Integer;
      Y: Integer); override;
  public
    constructor Create(AOwner: TComponent); override;
  end;

...

constructor TMyComponent.Create(AOwner: TComponent);
begin
  inherited;
  Width := 200;
  Height := 200;
  FPanel := TPanel.Create(self);
  FPanel.Parent := self;
  FPanel.OnMouseDown := PanelMouseDown;
end;

procedure TMyComponent.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Integer);
begin
  inherited;
  if Button = mbLeft then
    ShowMessage(Format('X: %d, Y: %d', [X, Y]));
end;

procedure TMyComponent.PanelMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState;
  X, Y: Integer);
begin
  self.MouseDown(Button, Shift, X, Y);
end;