Delphi RTTI 동적 생성 Form

셀을 참조하지 않고 Form을 직접 생성

procedure MyShowForm(FormName: string);
  var
    ctxRtti: TRttiContext;
    typeRtti: TRttiType;
    methRtti: TRttiMethod;
    LClass: TRttiInstanceType;
    aForm: TCustomForm;
  begin
    ctxRtti  := TRttiContext.Create;
    try
      for typeRtti in ctxRtti.GetTypes() do
      begin
        if SameText(typeRtti.Name, FormName) then
        begin
          LClass := typeRtti.AsInstance;
          aForm := LClass.MetaclassType.Create as TCustomForm;
          aForm.Create(Application);
          aForm.Show;
          aForm.BringToFront;
        end;
      end;
    finally
      ctxRtti.Free;
    end;
  end;

  MyShowForm('TForm2');

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

Delphi 10.3.3 IDE 글꼴 및 글꼴 크기 수정

Delphi는 Windows 플랫폼에서 유명한 빠른 응용 프로그램 개발 도구(Rapid Application Development, 약칭 RAD)입니다.그것의 전신은 바로 DOS 시대에 성행한'Borland Turb...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

Delphi RTTI 동적 생성 Form

좋은 웹페이지 즐겨찾기