MouseDown, ..Up, ..Move einer Klasse hinzufügen?

[DeddyH]

Zitat von DeddyH:

Ich würde an Deiner Stelle von TGraphicControl oder TCustomControl ableiten, ...

Schon versucht?

[moelski]

Moin !

Zitat:

Schon versucht?

Ja. Habe meine Klasse jetzt so abgeleitet:
TRecty = Class(TGraphicControl) Habe dann aber 2 neue Fragen ...

1) OnMouseMove (u.a.) ist protected. Muss ich das dann als Property in meiner eigenen Klasse definieren?
2) Die Klasse TGraphicControl hat eine Methode Paint. Übernimmt die für mich das Zeichnen? Wenn ja, muss ich die vermutlich mit einer eigenen Methode überschreiben, oder?

[DeddyH]

Du musst die Ereignisse nur noch in den public- oder published(wenn Komponente)-Abschnitt verschieben. Und richtig, die Paint-Methode ist der richtige Angriffspunkt, die musst Du überschreiben.

[edit] Das sollte dann ungefähr so aussehen:

Delphi-Quellcode:

TRecty = Class(TGraphicControl)
  ...
protected
  procedure Paint; override;
public
  property OnMouseMove;
  property OnMouseDown;
  ...
end;

...

procedure TRecty.Paint;
begin
  inherited;
  //Dein Code
end;