Flackern

[Norbert Nolte]

Hallo,

ich möchte Objektinformationen auf mehreren Tabsheets
eines Pagecontrols darstellen. Auf der ersten Seite
stehen die Infos, die alle Objekte haben. Infos, die von
Objekt zu Objekt verschieden sind, werden auf
zusätzlichen Tabsheets dargestellt. Beim Blättern von
Objekt zu Objekt werden also erst alle Tabsheets bis auf
das erste gelöscht und dann werden die Tabsheets des
neuen Objekts hinzugefügt. Der Code ist folgender

procedure TForm2.Button1Click(Sender: TObject);
var
i: integer;
j: integer;
ts: TTabSheet;
edt: TEdit;
begin
for i := 1 to pc1.pagecount-1 do
begin
pc1.pages[1].free;
end;
for i := 1 to Random(5)+3 do
begin
ts := TTabSheet.Create(Self);
ts.PageControl := pc1;
ts.Name := Chr(Random(26)+65)+'Nr'+IntToStr(i);
end;
end;

Das Problem ist, das bei dieser Aktion die Controls auf
dem ersten Tabsheet fürchterlich flackern. Hat jemand
eine Idee, wie man das unterdrücken kann?

Gruß,
Norbert Nolte

[Ulrich Gerhardt]

Hi Norbert,<br>
probier mal<pre>
for i := pc1.pagecount - 1 downto 1 do
begin
pc1.pages[i].free;
end;
</pre>für die erste Schleife. Bei pc1.pages[1].free setzt das PageControl den Fokus nämlich auf pc1.pages[2], wenn es diese gibt, weshalb diese kurz "aufblitzt".
<br>Ciao, Uli

[Norbert Nolte]

Hey Uli,

klappt bestens, vielen Dank