Dazu habe ich 2 Klassen, wobei TWindow von TView vererbt wird.
Meine Frage, wieso wird bei Ausgabe() nicht die Methode verwendet, welche ich mit vitual; überschrieben habe ?
Als Test habe ich folgend Methode:
Code: Alles auswählen
procedure TForm1.Button1Click(Sender: TObject);
begin
Ausgabe(view); // --> View
Ausgabe(win); // --> Window
view.Draw; // --> View
win.Draw; // --> View
end;
Kann man dies irgendwie umgehen ?
Es kommt noch folgende Warnung:
Code: Alles auswählen
unit1.pas(21,15) Warning: An inherited method is hidden by "Draw;"
Im Anhang die komplette Source.