[Delphi] 폼의 클래스명 바꾸기

CreateParams를 이용.
매개변수로 받는 Params 를 요리조리 만져보자.

type
  Form1=class(TForm)
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  end;






procedure TForm1.CreateParams(var Params: TCreateParams);
begin inherited CreateParams(Params);
  Params.WinClassName:='MyClassName';
end;




// TCreateParams 구조
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;