Neuzeichnen eines StringGrid beim vertikalen Scrollen

[storfi]

Hallo zusammen,

ich habe momentan ein dringendes Problem mit einem StringGrid.

Auf einem StringGrid werden innerhalb einer Schleife mehrere Panels erzeugt und positioniert:

Delphi-Quellcode:

            with TPanel.Create(self) do
            begin
              t_caption:='blabla';
              Name:='PNL'+IntToStr(t_panelnr);
              Parent:=PlanGrid;
              Alignment:=taLeftJustify;
              Caption:=t_caption;
              Color:=clBelegt;
              Height := PlanGrid.DefaultRowHeight;
              Top := t_raumzeile * (PlanGrid.DefaultRowHeight+1);
              Left := Round((PlanGrid.DefaultColWidth+1) / 120 * t_beginn) + PlanGrid.ColWidths[0];
              Width := Round((PlanGrid.DefaultColWidth+1) / 120 * t_dauer);
              BevelInner:=bvLowered;
              Visible:=true;
              OnMouseDown:=DummypanelMouseDown;
              OnMouseMove:=DummypanelMouseMove;
              OnMouseUp:=DummypanelMouseUp;
            end;

Nun tritt zur Laufzeit folgendes Problem auf:
Das StringGrid ist immer länger als angezeigt werden kann. Beim ersten Aufruf wird bis zur letzten sichtbaren Zeile alles richtig dargestellt. Wird nun mit der Maus nach nach unten gescrollt, werden die Panels zerstückelt, da der neue sichtbare Bereich offensichtlich nicht automatisch neu gezeichnet wird. Beim Zerstückeln gibt es den selben Effekt.

Bei welchem Ereignis kann ich das Neuzeichnen des Panels mit Repaint anstoßen?
Oder welche Ursache vermutet ihr für die falsche Darstellung nach dem Scrollen?

Noch zur Info: Die Panels werden extra so erzeugt, damit sie anschließend per Drag&Drop verschoben werden können. Dies funktioniert soweit...

Danke,
storfi

[storfi]

Hallo,

das Problem hat sich erledigt.

Ich habe das StringGrid in eine Scrollbox gesetzt und die Scrollbalken des StringGrids ausgeschaltet. Dann wird nach dem Füllen des StringGrids die Höhe neu gesetzt und das Scrollen in der Scrollbox funktioniert wunderbar...

Servus,
storfi