Delphi 7 - Zmena veľkosti dvoch DBGridov
Mám formulár a na ňom mám dva DBGridy, ktoré sú na celý formulár (píšem zjednodušene, v skutočnosti je tam ešte PageControl a strany). Sú pod sebou ako dlaždice. Vždy musia zabrať veľkosť celého formulára, ale počas behu aplikácie by som chcel, aby sa myšou dal meniť pomer ich veľkosti. Jednoducho povedané, jeden zmenším, druhý sa automaticky natiahne, aby spolu zabrali tú istú plochu. Nikdy som tento problém neriešil, lebo som to nepotreboval. Dnes ale toto riešim a zistil som, že obyčajný Bevel sa na to použiť nedá (chcel som Bevel dať medzi DBGridy a využiť jeho udalosti. Bevel by bol vlastne rozdeľovač. Bevel ale nemá udalosti. Zaujímalo by ma ako sa tento problém rieši bežne. Aká komponenta sa na to využíva a akým spôsobom. Alebo si kompletne celú obsluhu musím programovať sám? V Lazarovi bola komponenta PairSplitter, ale pokiaľ viem, nič také v Delphi nie je. Úplne mi stačí nakopnutie správnym smerom, zvyšok si už urobím ja. Ide mi o to, že nechcem si ručne programovať niečo v zmysle OnResize, ak už nejaká komponenta takúto funkčnosť dokáže urobiť za mňa.
V Delphi existuje TSplitter...
Na ten som narazil, aj som s ním skúsil niečo robiť, ale neviem ako ho použiť. Mám nastavené Align takto:
- DBGrid1 - alTop
- DBGrid2 - alBottom
- Splitter - alClient
Splitteru som nastavil Cursor na crVSplit, ale stále ukazuje kurzor crHSplit. Posun Splittera počas behu aplikácie nemá žiadny efekt.
Robím to takto:
- na prázdny Form vložím v poradí
1. DBGrid1 - alTop
2. TSplitter - alTop
3. DBGrid2 - alClient
F9 - run...
Ďakujem. Pomohol si mi.
Nabudúce príď s niečím ťažším, toto sú iba píč*viny...