JustPaste.it

Jak zrobić zaokrąglone rogi formy?

Jak zrobić zaokrąglone rogi na naszej formie w Delphi? To proste, należy skorzystać z funkcji SetWindowRgn().
Na początku 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()

Licencja: Creative Commons - bez utworów zależnych