Ostatnio coraz więcej osób wypytuje mnie na GG jak zmienić kolor jakiegoś komponentu, gdy nie ma on w inspektorze obiektów pozycji kolor.
Wystraczy zadeklarować nowy typ:
type TMagic=class(TControl)
published
property Color;
property Font;
//można wstawiać inne ukryte właściwości, jak Caption, Text, PopupMenu, AutoSize itp.
end;
i zmieniać kolor, czcionkę lub inne wykorzystując:
TMagic(NazwaKomponentu).Color:=clRed;
Tak samo możecie ustawiać inne wartości, których nie mają normalnie komponenty, a ich "rodzice" posiadają jako protected
Np. dla pochodnych TWinControl można ustawić InnerBevel (tylko należy w tym kodzie zamienić TControl na TWinControl)
UWAGA: Nie stosujcie tego do komponentów TMenu, TPopupMenu i TMenuItem, bo spowoduje to błąd.
--
Jest jeszcze jeden błąd ... :)