FPC / Custom TPaintbox: Onpaint deklarieren

[baumina]

Wenn du nicht im Delphimodus, sondern mit objfpc programmierst, dann musst du bei der Zuweisung ein @ davor machen:
OnPaint := @Mypaint;

[hochundweit]

@Baumina: uff, so simpel... Herzlichen Dank ! Ich hatte den Code aus einem meiner alten Delphi-Programme rueberkopiert und mich gewundert,
warum es nicht klappt.

[Sir Rufo]

Es empfiehlt sich bei der Ableitung von TPaintBox die protected Methode TPaintBox.Paint zu überschreiben und nicht die Eigenschaft TPaintBox.OnPaint intern zu belegen.

Die Eigenschaft ist published und kann von aussen neu belegt werden und schwupps wird der eigene Code nicht mehr ausgeführt.

Delphi-Quellcode:

procedure TMyPaintBox.Paint;
begin
  // Hier eigener Code vor dem Aufruf von OnPaint
  inherited; // Auskommentieren, wenn OnPaint gar nicht aufgerufen werden soll
  // Hier eigener Code nach dem Aufruf von OnPaint
end;

[hochundweit]

@SirRufo Merci, werde ich ausprobieren !