CustomControl Vererbung und Paint

[stOrM]

Zitat von stahli:

Du machst wohl nur einen Denkfehler.
Du kannst Paint in jedem Derivat überschreiben:

Delphi-Quellcode:

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;

Ok fast, klappt es. Das Inherited war falsch Irgendeinen Fehler hab ich wohl noch, jetzt wird zwar der Hintergrund geändert durch das Paint in Komponente 2 nur mal ich da noch eine rote Linie oben auf das OffscreenBitmap das zeigt er mir jetzt dafür nicht mehr an Mal gucken wo da jetzt der Fehler ist. Erledigt....

[nahpets]

Wenn Du mal den ganzen Quelltext posten würdest, könnte man Dir sogar gezielt helfen und müsste nicht permanent raten, wo denn da jetzt ein Problem liegen könnte, dass es per Definition garnicht geben kann.

inherited wird dann aufgerufen, wenn die Methode des Vorgängers aufgerufen werden soll und zwar genau an der Stelle, an der die Methode des Vorgängers aufgerufen werden soll.

Möglich wäre also sowas:

Delphi-Quellcode:

procedure TBlubb2.Paint;
begin
  inherited; // Mache nur das, was auch der Vorgänger macht.
end; 

procedure TBlubb2.Paint;
begin
  // Mache was eigenes ...
  inherited; // und dann das, was auch der Vorgänger macht.
end; 

procedure TBlubb2.Paint;
begin
  inherited; // Mache das, was auch der Vorgänger macht.
  // und dann was eigenes ...
end; 

procedure TBlubb2.Paint;
begin
  // Mache was eigenes,
  inherited; // dann das, was auch der Vorgänger macht ...
  // und dann noch was eigenes ...
end;

Bei inherited kommt es also durchaus darauf an, wo man es aufruft und nicht nur, dass man es aufruft oder es eben nicht aufruft.

[DeddyH]

Paint ist in TCustomControl doch bereits als virtuell deklariert, wenn ich nicht irre. Weshalb redeklarierst Du sie dann in der ersten Ableitung? Alles etwas komisch in meinen Augen.