Hej Thomas,
"Thomas Eg Jørgensen" <thomas@kontorbutikken.dk> wrote in message
news:9qqqda$kup$1@news.cybercity.dk...
> Jeg er ved at lave en form for kalender og har i den forbindelse lave en
> component. Komponenten arver fra TGraphicControl for at jeg kan tegne, men
> hvordan fanger jeg nu en OnMouseDown event? min component skal vide hvor
jeg
> klikker for at kunne trigge en event.
det er noget tid siden jeg selv har leget med "hjemmedlavede" komponenter,
så jeg kan ikke huske om det er nok blot at indføre en published property
der hedder OnMouseDown... hvis ikke skal du også indføre en overskrevet
version af metoden (der bag kulisserne hedder MouseUp), f.eks.:
TMyGraphicControl = class(TGraphicControl)
private
protected
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
published
property OnMouseUp;
og i din implementation:
procedure TMyGraphicControl.MouseUp(Button: TMouseButton; Shift:
TShiftState;
X, Y: Integer);
begin
// Kald TGraphicControl.MouseUp
inherited MouseUp(Button,Shift,X,Y);
// Her kan også indsættes egen kode for OnMouseUp-event
end;
Bemærk, koden er ikke testet
Cheers,
Thomas