ich denke das ist ein Refresh Problem, das gefühlte 200.000 mal aufgerufen wird:
Auszug aus den nativen D.P.F Komponenten:
Delphi-Quellcode:
7) This is very important to: if you want have very high performance in your project override in all you TForm declrations PaintRects
Sample:
type
TFDatePicker = class( TForm )
private
{ Private declarations }
protected
procedure PaintRects( const UpdateRects: array of TRectF ); override; <---- This line a important !
public
{ Public declarations }
end;
and in your implementation:
procedure TFDatePicker.PaintRects( const UpdateRects: array of TRectF );
begin
{} <-- This is important you not have any [inherited] keyword here !
end;
hier solltest Du am OnCreate den Refresh irgnorieren und erst am ab dem OnShow zulassen