body {margin:0; padding:0; background:#fff; color:#000}td,body,.form {font-family:Tahoma; letter-spacing:1.1lm;font-size: 9pt}A {color:#336699; text-decoration: none;}One control that I have not seen in the line-up of new controls in the VCL for Tiburon is a size grip.Most people may not even realise that this control exists, even though it is part of Windows itself and is really quite useful. Fortunately, implementing it ourselves is truly trivial.What is a Size Grip?A size grip is the small triangular control, usually in the lower right hand corner of a window that provides an indication that the window is resizable and is also a grab-point that the user can use to resize the window itself.You will see one if you place a status-bar control on a resizable form:Example of a Size GripIf the form is not resizable, the grip does not appear in the status bar.But what if I have a form that I want to be sizable, but which does not have a status bar, doesn’t need a status bar, and which perhaps in all other respects doesn’t even look resizable?Imagine, for example, that I have redesigned a dialog box so that it now needs to be resizable….If you look at the dialog box shown in that link, you will see that it is resizable but offers no immediately obvious visual cue that this is in fact the case. It clearly doesn’t need a status bar.What would be useful in such cases is a way to add a size grip without having to use a status bar.And this is exactly what a size grip control does for us.The ImplementationAs I mentioned, the implementation of such a control is trivial. So trivial that the entire implementation is provided below. No need for a download in this case.interface uses Classes, Controls; type TSizeGrip = class(TWinControl) protected procedure CreateParams(var Params: TCreateParams); override; procedure CreateWnd; override; public constructor Create(aOwner: TComponent); override; end;implementation uses Windows;{ TSizeGrip } constructor TSizeGrip.Create(aOwner: TComponent); begin inherited; ControlStyle := [csOpaque, csFixedWidth, csFixedHeight]; Anchors := [akRight, akBottom]; Cursor := crSizeNWSE; Height := 11; Width := 11; end; procedure TSizeGrip.CreateParams(var Params: TCreateParams); begin inherited; CreateSubClass(Params, 'SCROLLBAR'); Params.Style := Params.Style or WS_CLIPSIBLINGS or SBS_SIZEGRIP; end; procedure TSizeGrip.CreateWnd; begin inherited; Left := Parent.ClientWidth - Width - 1; Top := Parent.ClientHeight - Height - 1; SendToBack; end;As you can see, a size grip is in fact a special form of the built in SCROLLBAR Windows control class.This code should work in any Win32 version of Delphi. In my case since I use Delphi 7 I use dotted unit names and have it implemented in Deltics.Controls.SizeGrip. In earlier Delphi versions you will need to use a unit name with no dots.And yes, we should probably use system metrics to size the control.The implementation has the control place itself in the lower right hand corner of it’s parent, and stay there. But how do we ensure that we only show the control if the form is resizable?Well, actually, we don’t need to worry about that. Simply placing the control on a form makes the form resizable (via the size grip) even if that form would normally not