In eigener Komponente auf Klick reagieren

[Christian Seehase]

Moin Manuel,

ich habe den Eindruck, dass Du es Dir zu schwer machst.
TCustomControl bietet ja von sich aus das OnMouseUp (und auch OnClick, falls Du das benötigst)

Nimm mal ein leeres Formular, und einen Button.

Delphi-Quellcode:

type
  TMyCC = class(TCustomControl)
  end;

implementation

{$R *.dfm}

procedure TForm1.MyMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage('CLICK');
end;

procedure TForm1.btn1Click(Sender: TObject);

var
  MCC : TMyCC;

begin
  MCC := TMyCC.Create(self);
  MCC.Parent := self;
  MCC.Width := 100;
  MCC.Height := 100;
  MCC.Left   := 0;
  MCC.Top    := 0;
  MCC.OnMouseUp := MyMouseUp;
end;