Nur so als Idee:
Wenn ich Elemente habe die an die gleiche Stelle sollen, verwende ich Karteireiter
sprich TPageControl. Mit TabVisible sorge ich dann dafür sorgen, dass die Reiterauswahl
ausgeblendet wird.
Hier mal aus meinen
VCL-Tools:
Delphi-Quellcode:
Procedure InvisibleTabs(pcCurrent : TPageControl);
var
iTab : Integer;
tsCurrent : TTabSheet;
Begin
pcCurrent.TabHeight := 1;
for iTab := (pcCurrent.PageCount - 1) downto 0 do
Begin
tsCurrent := pcCurrent.Pages[iTab];
tsCurrent.TabVisible := False;
End;
End;
Anmerkdung in eigener Sache:
Ob man dann
for iTab := 0 to (pcCurrent.PageCount - 1) do
schreibt,
die Zwischenvariable
tsCurrent
weg läst
oder Feind der ungarischen Notation ist, kann ja jeder nach seinem Belieben anpassen.
Das sieht meiner Meinung nach im Fenster ordentlich aus, man kann als Entwickler
schön zwischen den Ansichten wechseln und der Anwender sieht nur den Reiter,
der gerade "aktiv" ist.
Mit freundlichem Gruß
Incocnito