Forum: Programmieren allgemein
by DeddyH,
23. Mai 2013
Setz doch mal einen Haltepunkt auf das inherited und geh schrittweise durch, dann siehst Du, was dort geschieht. Und damit es nicht heißt, wir würden nur meckern, hier ein Alternativvorschlag:
type
TGrafikobjekt = class
private
Fx, Fy: integer;
FfuellFarbe: TColor;
FrandFarbe: TColor;
protected
FCanvas: TCanvas;
procedure anzeigen; virtual;
Forum: Programmieren allgemein
by DeddyH,
23. Mai 2013
Setz doch in die überschriebenen Methoden ("anzeigen") mal ein inherited in die jeweils erste Zeile. Ansonsten ist der Code sowieso suboptimal, aber bei der Quellenangabe... :roll: