Delphi FAQ

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().

FAQ

3 komentarzy

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 :)