Guten Abend zusammen,

ich wollte für eine eigene Komponente Dinge aus der OnMouseMove-Procedure kopieren. Dabei hab ich mich dann auf die Suche gemacht und erst einmal herausgefunden, dass das gar keine Procedure sondern eine Proprety ist. Dann war aber auch Schluss.

Könnt ihr mir da weiterhelfen?

Gruss,

Wenn du deine eigene Komponente von TCustomControl ableitest, dann musst du nur noch das Property OnMouseMove publishen. Falls deine Komponente selbst benachrichtig werden muss, wenn sich die Maus bewegt, kannst du die Prozedur MouseMove überschreiben.

sprich ich mach sowas wie:




was muss ich beim MouseMove alles für Übergabevariablen hinzufügen? Klappt das, wenn ich da einfach



reinsetze, dass ich automatisch die MouseKoodinaten bekomme?

Ne andere Sache, wie viel ist im TCustumControl noch alles drin? Ich will ja nicht annähernd unendlich viele Dinge vererben, sondern nur diese eine Sache.

Gruss,

push?

is die Frage sooo schwer? oder stimmt das, was ich da oben geschrieben hab?

Hmm, wo ist meine Antwort hin, die ich vorgestern oder so getippt hatte?
Naja egal, tippen wir das Ganze halt nochmal

Der Befehl heißt override("geht vor"), nicht overwrite. Und nein, den verwendest du, wenn du eine Methode ersetzen willst(Methode=[procedure of object, function of object]).

Hier musst du nur die Sichtbarkeit ändern, dazu deklarierst du sie einfach wie folgt neu(ohne read, write und das ganze Zeug):

Die property ist ursprünglich in TControl deklariert, wie du in der Unit Controls nachlesen kannst: property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;

Mehr dazu gibt es hier: *klick*.

---

Für ein einzelnes Projekt würde ich aber keine eigene Komponente schreiben: Eine Klasse, die eine Paintbox/ein Canvas, ein RichEdit o.ä. übergeben bekommt, reicht meißtens aus. Hast du dich schon damit beschäftigt, wie du die Komponente zur Design-Zeit auf's Formular ziehen kannst? Das geht meines Wissens unter Turbo Delphi nicht(einzige Einschränkung der kostenlosen Version).

lg,