How to add a size grip to a TForm without using a status bar?


First solution:

Solution 2:

Solution 2:

Use a TPaintBox (Anchors = [akRight,akBottom]) and place it on a TPanel (Align=alClient):

Solution 3:

I took an image for the grip and adjusted it manually on resizing of the form. Anchors do not work correctly with toolwindows or if the window caption is not the same as in design time.

{ … }

Solution 4:

Note that this only works with Delphi version 7 – to use it in earlier versions would require some compiler directives around the theme-related stuff.