TCollection, TCollectionItem

[uwewo]

Zitat von oki:

Ich glaube immer noch, dass es über die Paint-Procedure geht.

Dieser Satz ging mir die ganze Woche nicht aus dem Kopf, da es ja eigentlich bei jedem Objekt funktioniert. Deshalb habe ich mich am Wochenende noch einmal daran gesetzt, und folgendes herausgefunden. Meine ersten Tests hatte ich so versucht.

Delphi-Quellcode:

procedure TDateLine.Paint; 
begin
  inherited;
  UpdateItems;
end;

Dabei hatte ich eine Prozessorauslastung von ca. 100%

Delphi-Quellcode:

procedure TDateLine.Paint; 
begin
  inherited Paint;
  UpdateItems;
end;

bringt den gewünschten Erfolg, was so ein Wort alles ausmachen kann

Werde Dir den geänderten Source diese Woche zukommen lassen.

Bis dann

Uwe