A dinamikus - méretének módosításához tabsheet

Hogyan dinamikusan # 032; változtatni TabSheet méret?

Már feltette ezt a kérdést, de a döntés, és egyáltalán nem volt a látszólagos egyszerűsége a probléma: Hogyan kell dinamikusan változtatni a méretét az adott Tab, ismétlem - nem egyszerre, és egyetlen.
Az a tény, hogy nem volt szükség rajzolni a Tab ah, de nem a ImageList, és a saját készlet, így a következtetés: OwnerDraw: = true; és felhívni a OnDrawTab esemény.
Tehát felhívni a szöveg és a kép rendben van, de lehetetlen, hogy dinamikusan változik a méret a Tab billentyűt, ha a szöveg túlmegy a mérete. Kérem, mondja meg.

Ez megváltoztatja a méretét a tétel s PageControla.
Meg kell változtatni a méretét az adott Tab, például akkor történik, ha vezetsz, és kinyújtotta Képaláírás.

> Ez megváltoztatja a méretét a tétel s PageControla.
Ez úgy van elrendezve PageControl - ő kiszámolja Tab méretű, és az alapján a szélessége a szöveg és a jelenlét / képméretet.
Ez nem teszi a képet Imagelist?
Azt is hozzá egy helyet felirattal, hogy megteremtse a szükséges üres hely.

> Úgy vannak összeállítva PageControl - ő kiszámolja Tab méretű, és az alapján a szélessége a szöveg és a jelenlét / képméretet.
Azaz kiderül, hogy a helyzet reménytelen?

> Mit nem tesz kép a Imagelist?
A képek tárolása a forrás. Dinamikusan létrehozni ImageList majd megölni? És ha a képeket a reklámok 200-300?

> Azt is hozzá egy helyet felirattal, hogy megteremtse a szükséges üres hely.
Probyval így, Tab.Caption: = Concat ( "", Tab.Caption); Nos, ha 16x16, és ha több. -kal, és hiányosságok tovább. Nos, itt vagyok a keresésben, vrodeby vesch könnyűnek tűnik, de azok tovább.

Memória: 0,73 MB
Idő: 0.047 c