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:

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:

Delphi-Quellcode:

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?

[Bernhard Geyer]

Ich glaub es reicht die Property-Defintion nochmals vorzunehmen und dann nochmals die SetCursor-Defintion/Implementierung (ohne Override)
(Ohne Gewähr - Hab gerade kein Delphi offen).

[Skiron]

Jetzt hab ich so was gemacht:

Delphi-Quellcode:

  TForm1 = class(TForm)
  //..
  private
    { Private declarations }
    procedure SetCursor(Value: TCursor);
  public
    { Public declarations }
    property Cursor;
  end;

//...

procedure TForm1.SetCursor(Value: TCursor);
begin
  inherited;
  ShowMessage('');
end;

Wenn ich aber den Cursor setz, kommt keine Messagebox!

Und ich kanns nicht so schreiben

Delphi-Quellcode:

 property Cursor: TCursor read FCursor write SetCursor default crDefault;

weil er dann FCursor nicht kennt...

[SirThornberry]

ich habs grad pobiert und eigentlich warst du schon nah dran...
so gehts

Delphi-Quellcode:

  [...]
  private
    function FGetCursor: TCursor;
    procedure fSetCursor(ACursor: TCursor);
  published
    property Cursor: TCursor read FGetCursor write fSetCursor;
[...]

function TForm1.FGetCursor: TCursor;
begin
  result := inherited Cursor;
end;

procedure TForm1.fSetCursor(ACursor: TCursor);
begin
  inherited Cursor := ACursor;
  ShowMessage('');
end;