In eigener Komponente auf Klick reagieren

[xaromz]

Hallo,

Zitat von Christian Seehase:

Moin Manuel,

und so:...

Ist in TCustomControl das Event nicht schon definiert? Dann müsste das hier reichen:

Delphi-Quellcode:

type 
  TMyCC = class(TCustomControl) 
  protected
    procedure MouseUp(Button: TMouseButton;Shift: TShiftState; X, Y: Integer); override; 
  published
    property OnMouseUp;
  end; 


procedure TMyCC.MouseUp(Button: TMouseButton; 
  Shift: TShiftState; X, Y: Integer); 
begin 
  inherited; 
  ShowMessage('INTERNAL'); 
end;

Gruß
xaromz