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:
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?