Zaokrąglone rogi formy
Coldpeer
Jak zrobić zaokrąglone rogi na naszej formie w Delphi? To proste, należy skorzystać z funkcji SetWindowRgn().
Na początku, aby można było zobaczyć efekty naszej pracy (a właściwie Twojej :)), zmień właściwość formy BorderStyle na bsNone - dzięki temu formatka nie będzie miała zbędnej (w tym przypadku) belki tytułowej.
Ok. Teraz możemy przystąpić do odpowiedniego oprogramowania formy. Pod zdarzenie OnCreate, wpisz taki kod:
SetWindowRgn(Handle, CreateRoundRectRgn(0,0,Width,Height,25,25),true);
Aby zmodyfikować nieco wygląd, możesz pobawić się zagnieżdżoną w funkcji SetWindowRng() funkcją CreateRoundRectRgn().
Problemem jest jak ktoś zmienia rozmiar okna ale dodajemy ten sam wpis do zdarzenia OnResize i pięknie działa
Chyba jestem pierwszy, któremu to się przydało ;-)
Dzięki :-)
Mam nadzieję, że się komuś przyda ta wskazówka :)