반응형

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


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


procedure SetAsMainForm(AForm: TForm);

var

  P:Pointer;

begin

  P := @Application.Mainform;

  Pointer(P^) := AForm;

end;

반응형
  1. 조성긍 2015.12.07 22:28

    좋은 정보 고맙습니다.

+ Recent posts