Und so gehts (ist genau das, was DeddyH geschrieben hat, nur etwas ausführlicher
):
Delphi-Quellcode:
// ...
protected
{ Protected-Deklarationen }
procedure Click; override;
// ...
und dann weiter unten:
Delphi-Quellcode:
procedure TKomponente.Click;
begin
//-----
// ...
// evtl. noch "inherited Click;"
end;
Patti
Edit: Roter Kasten...
Du kannst nur bei OnMouseDown bzw. OnMouseUp auf X- und Y-Werte zugreifen! Geht genauso wie ichs beschrieben hab
Du musst allerdings bei Protected schreiben:
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
Und dementsprechend weiter unten deinen Code auch anpassen!