nicht-Vererbte private-Methode überschreiben

**Skiron**

ich möcht für mein Formular gern den Cursor setzen.
Ganz einfach ginge das ja mit Cursor := crMeinCursor; oder so.
Nun möcht ich aber (da ich schon jede menge von Cursor-zuweisungen drinnenhab) noch ein paar kleinigkeiten erledigen, wenn der Cursor gesetzt wird.
Deshalb hab ich mir gedacht, einfach so was zu machen:

zusammenfalten · markieren

Delphi-Quellcode:

			private

  procedure SetCursor(Value: TCursor); override;

end;

implementation

procedure TForm1.SetCursor(Value: TCursor);

begin

  inherited;

//Kleinigkeiten...

end;

in der Klasse TControl (oder TWinControl) ist ja die Eigenschaft Cursor enthalten. die schaut so aus:

property Cursor: TCursor; read fCursor write SetCursor; in der selben Klasse ist dann auch die Methode SetCursor in private deklariert.
Deshalb funktioniert die obrige Methode nicht, weil er mir beim override meckert, dass es keine vererbte Methode namens SetCursor gibt (private wird nicht vererbt)

weiß jemand, wie ich das Problem irgendwie lösen könnte?

nicht-Vererbte private-Methode überschreiben

nicht-Vererbte private-Methode überschreiben

Forumregeln