Controls schnell auf einem Panel neu anordnen -ohne Flickern

[alzaimar]

Hi

Ich habe ein Panel, darauf sollen 50 TEdit-Controls zur Laufzeit dynamisch raufgepackt werden. Klappt ja auch, ist nur langsam.

Wenn ich vor dem Erzeugen das Panel unsichtbar mache, und hinterher wieder sichtbar, ist es schon viel schneller, flackert aber. Is klar, ich mach ja auch:

Delphi-Quellcode:

MyPanel.Visible := False;
CreateControls;
MyPanel.Visible := True;

Gibts für TPanels nicht sowas wie 'BeginUpdate'/'EndUpdate'?

[Hawkeye219]

Hallo alzaimar,

Shaman zeigt in diesem Beitrag zwei Routinen als Ersatz für die API-Funktion LockWindowUpdate. Vielleicht kannst du damit ein Neuzeichnen des Panels während des Aufbaus verhindern.

Gruß Hawkeye

[Zacherl]

DoubleBuffered

[alzaimar]

:dp: Das merkt man immer wieder.
Danke an Euch!

[alzaimar]

Kleiner Nachtrag:

Delphi-Quellcode:

MyPanel.Visible := False;
CreateControls;
MyPanel.Visible := True;

dauert 60ms und blinkt (Klar, Visible aus und wieder an)

Delphi-Quellcode:

LockWindow(MyPanel.Handle);
CreateControls;
UnLockWindow(MyPanel.Handle);

dauert 300ms und blinkt nicht, ist aber eigentlich kein Unterschied zum reinen 'CreateControls'.
Aber:

Delphi-Quellcode:

LockWindow(MyPanel.Handle);
MyPanel.Visible := False;
CreateControls;
MyPanel.Visible := True;
UnLockWindow(MyPanel.Handle);

dauert nur 90ms und ist somit perfekt.