But what if you don’t want your list of values to be able to be altered at run-time? You need them to be contained in a constant rather than a variable.

Example: to declare an array of abbreviated week names:

const
  Days: Array[0..6] of String = (
      'Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'
  );

You could then access each name by the index of the day of the week within the Days constant.

i := DayOfWeek(Date); //returns an integer 0-6
ShowMessage('Today is  ' + Days[i]);

Another common use for constant arrays is to describe the values in an ENUM type:

type
  TStatusCodes = [
    scUnknown, scActive, scPending,
    scDisabled, scSuspended
  ];
const
  StatusString = Array[TStatusCodes] of String = (
    'Unknown', 'Active', 'Pending',
    'Disabled', 'Suspended'
  );

Then, the description string for each status code becomes available via the ordinal value of the status code itself:

ShowMessage('Your account is '+ StatusString[scActive]);

Would show a message box with the text “Your account is Active“. Of course in the real world, the status code enumeration value would come from a user object or some such similar method (like “function getAccountStatus(): TStatusCode;” perhaps).

So, How do I change this behaviour?

For one reason or another, you may decide that you want to let each child form in an application you create have it’s own Task Bar button, and as a result, complete control over it’s visibility when the application’s main form is minimized/restored. Ordinarily, the first form created in your application is the Main Form. It is the parent of all other forms that will be created in your application, and as such, when the main form closes, the application terminates. In addition, when the main form is minimised, all child forms are also minimized as the application is hidden. Only the main form in this case has a button on the task bar.

So, you don’t really want your child forms to be hidden when you minimise the main form of the application…

Well, you need to do two things. Both can be done inside the CreateParams() method of your form. SO you’ll need to override this procedure.

Firstly, you’ll need to change the style parameters of the form when it is created. More specifically, you need to override the and manually set the ExStyle parameter. Secondly, you’ll need to change the parent of the form form the applications main form to something else – usually the Windows Desktop.

Firstly, you need to add the style WS_EX_APPWINDOW to the style of the window being created. You can do this by oring this constant with the ExStyle paramter as such:

Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;

So, the code would look like this:

interface

type
TChildForm = class(TForm)
  ...
  protected
  procedure CreateParams(var Params: TCreateParams); override;
    ...

implementation

  procedure TChildForm.CreateParams(var Params: TCreateParams);
  begin
    inherited;
    Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
    Params.WndParent := GetDesktopWindow;
  end;

References:

http://delphi.about.com/od/formsdialogs/a/child_forms.htm

http://delphi.about.com/od/formsdialogs/l/aa073101a.htm