In eigener Komponente auf Klick reagieren

[Christian Seehase]

Moin Manuel,

und so:

Delphi-Quellcode:

type
  TMyCC = class(TCustomControl)
  private
    FOnMouseUp : TMouseEvent;
    procedure MouseUp(Button: TMouseButton;Shift: TShiftState; X, Y: Integer); override;
  public
    property OnMouseUp read FOnMouseUp write FOnMouseUp;
  end;


procedure TMyCC.MouseUp(Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  ShowMessage('INTERNAL');
  if Assigned(FOnMouseUp) then FOnMouseUp(self,Button,Shift,x,y);
end;