nicht-Vererbte private-Methode überschreiben

[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;