Hi,
hast Du mal folgendes ausprobiert?
Delphi-Quellcode:
Tabcontrol1.BeginUpdate;
tabitem1.BeginUpdate;
//mach was
Tabcontrol1.EndUpdate;
tabitem1.EndUpdate;
Tabitem1.Repaint;
Ich habe das mal in eine OnMouseDown Prcedure eines Edit Feldes geschrieben, weil ich dachte da müsste das ja wenigstens beim hineinklicken wieder funktionieren. Das editfeld ist mit mehreren Anderen Feldern in einer GroupBox und wenn ich jetzt in dieses Feld hereinklicke verschwinden sofort alle Editfelder wie in der Gif Animation von oben. Wenn ich mit der Maus über die Feld drüber fahre dann erscheinen sie wieder...
Was ist da Falsch?
Edit1: Ich habe festgestellt das eine Procedure an den Bugs schuld ist.
Diese:
[DELPHI]
procedure TFMain.OptikAnpassen(X,Y:integer);
begin
FMain.TC1.Height:=Y+20;//Anpassung der höhe von TabControl1
FMain.TC1.Width:=X;//Anpassung der Beite von TabControl1
FMain.ClientHeight:=Round(FMain.TC1.Height)+100;//Anpassung der höhe von FMain
FMain.ClientWidth:=Round(FMain.TC1.Width)+100;//Anpassung der Beite von FMain
end;
[/DELPHI
Diese Procedure bekommt als Parameter(X,Y) immer die Höhe und Breite des "Frames" auf das gewechselt werden soll, damit sich das Fenster der Größe des Frames anpasst.