Mengungkap Kegunaan Method CreateParams (Bagian 2)

Method CreateParams di definisikan pada class TWinControl pada unit Controls.pas, yang mempunyai sintaks sebagai berikut.
procedure CreateParams(var Params: TCreateParams); virtual;

Method tersebut di definisikan sebagai method protected, yang berarti hanya bisa diakses dari class yang bersangkutan atau class turunannya. Parameter dari method tersebut bertipe TCreateParams yang mempunyai struktur:
type
  TCreateParams = record
    Caption: PChar;
    Style: DWORD;
    ExStyle: DWORD;
    X, Y: Integer;
    Width, Height: Integer;
    WndParent: HWnd;
    Param: Pointer;
    WindowClass: TWndClass;
    WinClassName: array[0..63] of Char;
  end;

Tidak asing dengan tipe tersebut? Mirip dengan parameter-parameter yang terdapat pada fungsi CreateWindowEx, karena memang pada fungsi ini terdapat parameter yang nantinya akan dilemparkan ke fungsi CreateWindowEx sebagai parameter untuk membuat obyek yang bersangkutan.
Telah dijelaskan bahwa method CreateParams merupakan method protected, berarti kita bisa override method tersebut dari class turunannya. Dengan begitu kita bisa melakukan hal seperti ini pada aplikasi yang kita buat.
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
  end;

Kemudian pada bagian implementasinya:
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  //…
end;

Perhatikan pada procedure diatas pernyataan pada baris pertama setelah begin harus dibuat seperti itu untuk memanggil method CreateParams untuk class parent dan mengisi parameter dengan nilai default.