[Delphi] 런타임에 메인폼(MainForm) 변경 하기

Application.MainForm은 read only 속성이기 때문에 원칙적으로 런타임에 메인폼을 변경 할 수는 없다.

그러나 포인터를 이용하면 가능하다.

procedure SetAsMainForm(AForm: TForm);

var

  P:Pointer;

begin

  P := @Application.Mainform;

  Pointer(P^) := AForm;

end;