Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
13. Sep 2017
Du machst wohl nur einen Denkfehler.
Du kannst Paint in jedem Derivat überschreiben:
procedure TBlubb2.Paint;
begin
// wenn Du hier etwas zeichnest, wird das durch inherited Paint (falls Du es aufrufst) wieder übermalt
inherited; // Zeichnet das von TBlubb - aber Du kannst inherited auch weg lassen und alles neu zeichnen
// hier weiteres hinzumalen
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by stahli,
13. Sep 2017
Du willst also die vorletzte Hierarchieebene aufrufen?
Ich habe dazu etwas gefunden:
http://www.delphipraxis.net/53075-vererbungs-ebene-ueberspringen-bei-inherited.html
http://www.delphipraxis.net/14523-methodenhierarchie-der-vererbung-umgehen-ueberspringen.html
Vielleicht hilft Dir das weiter. Ganz genau habe ich das jetzt nicht nachvollzogen.
Evtl. ist es sauberer, eine gemeinsame...