1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

// An AppBar can have several behavior flags as shown below:
  // Flag                        Description
  // --------------------------- -----------------------------------
  // ABF_ALLOWLEFT               Allow dock on left   of screen
  // ABF_ALLOWRIGHT              Allow dock on right  of screen
  // ABF_ALLOWTOP                Allow dock on top    of screen
  // ABF_ALLOWBOTTOM             Allow dock on bottom of screen
  // ABF_ALLOWFLOAT              Allow float in the middle of screen

  // The following enumerated type defines the constants in the table
  TksoApplicationBarFlag = (abfAllowLeft, abfAllowTop, abfAllowRight, abfAllowBottom,
                 abfAllowFloat);
  TksoApplicationBarFlags = set of TksoApplicationBarFlag;					

1:
2:
3:
4:
5:
6:

var woandockenh : TksoApplicationBarFlags;
begin
woandockenh := [abfAllowRight, abfAllowtop];
Form1.AlwaysOnTop;
Form1.IsDockableHorizontally(woandockenh);
Form1.Flags := woandockenh;