폼이름과 클레스이름을 가지고 있습니다.
var
Form_Name,Form_Class : String;
begin
Form_name := 'Form1';
Form_Class := 'TForm1';
이부분을 해결해야합니다
end;
폼이름이나 클레스이름은 무조건 스트링값이여야 하구요
다른값으로 변환을 해도 되는데
어게 하면 폼을 띄울수있을까요??
고견부탁드립니다.
오늘도 이것때문에 하루 가 또 지나가네요 ㅠ.ㅠ
오늘 하루도 즐거운 하루 되시고요 좋은 시간 보내세요
initialization부에 반드시 해당 폼을 등록(RegisterClasses)해야 합니다.
implementation
uses Unit2;
{$R *.dfm}
procedure LoadForm(const ClassName: string);
var
FClass: TPersistentClass;
begin
FClass:= GetClass('TForm2');
if FClass = nil then Exit;
with TFormClass(FClass).Create(Application) do
Show;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LoadForm('TForm2');
end;
initialization
RegisterClasses([TForm2]);
end.