vložil Radek Červinka
27. září 2020 15:58
Od Delphi 10.4 je součástí VCL možnost jednoduše implementovat svůj titulek okna s vlastními prvky tak jak to má Chrome, Delphi IDE nebo jiné aplikace.

Základem je rozšíření TForm o TForm.CustomTitleBar a přidání komponenty TTitleBarPanel. Pokud použijete jen první variantu, máte možnost měnit barvy,výšku, zarovnání, ikony a to je tak vše. Teprve přidáním TTitleBarPanel na formulář a nastavením Form.CustomTitleBar.Control na tento panel můžete dosáhnout podobného efektu jako na obrázku nahoře z dema "Public\Documents\Embarcadero\Studio\21.0\Samples\Object Pascal\VCL\Titlebar".
Tímto způsobem se dá přidat např. editbox pro vyhledávání, nebo celé menu.

(pozn. to žluté je jen znázornění TabOrder z CnPack)
Zároveň přidáním panelu máte možnost obsluhovat OnPaint.
V docwiki nebo helpu je celkem dobře popsané Custom Title Bar for VCL Forms
Podpora pro aplikace je od Windows 7.
4c90af47-c623-4797-ba64-4421c972887a|10|4.8
Tagy: VCL