Schreibe gerade eine Container-Kombonente "TStateGroupBox", in der in einer TGroupBox ein TImage dargestellt werden soll.
Die Paint-Methode der TGroupBox überschreibe ich dabei:
Delphi-Quellcode:
TStateGroupBox = class(TCustomGroupBox)
private
FImage:TImage;
FImages:TCustomImageList;
protected
procedure Paint; override;
public
...
end;
procedure TStateGroupBox.Paint;
begin
inherited;
FImage.Picture.Bitmap:=nil;
FImages.Draw(FImage.Canvas,0,0,0);
end;
Nun flackert schon im Entwurfsmodus die Grafik, d.h. wird ständig gelöscht und neu gezeichnet.
Ich vermute, das Neuzeichnen von FImage bewirkt ein Neuzeichnen der übergeordneten GroupBox. Also wird deren Paint-Methode aufgerufen, die das Image wieder neuzeichnen will -> Endlosschleife!
Wie macht man es richtig?