Open Form

[N.Marzio]

How can I open a form from a string?

Tks

[Sherzod]

3 minutes ago, N.Marzio said:

How can I open a form from a string?

Hello,

Can you please explain in more detail?

[N.Marzio]

From the mainform I would like to open a secondary form

procedure ShowMyForm(aformName : string);

begin

????????

end;

procedure TxFrmBase.UniButton1Click(Sender: TObject);
begin

ShowMyForm('TxFrmBase ');

end;
 

My Sencond Form

  TxFrmBase = class(TUniForm)
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }

   ....

....

  public
    { Public declarations } 

......
  end;

function xFrmBase: TxFrmBase;
begin
  Result := TxFrmBase(UniMainModule.GetFormInstance(TxFrmBase));
end;

 

Tks

[Sherzod]

You can use FindClass() function.

[Freeman35]

hi,

Self.Name;

[N.Marzio]

sorry, but with findClass (),
I couldn't get it to work ....
Do you have an example?

[Sherzod]

  with TUniFormClass(FindClass('TxFrmBase')).Create(UniApplication) do
    Show();

procedure TMainForm.UniFormCreate(Sender: TObject);
begin
  RegisterClass(TxFrmBase);
  ...
end;

 

[N.Marzio]

I had already tried, but it doesn't work ...

Error Class not Found...

[N.Marzio]

I solved.
Thanks

[eduardosuruagy]

12 hours ago, N.Marzio said:

Eu resolvi.
obrigado

Show how you managed to solve please !!

[Mehmet Emin]

Probably calling in initialization will do it

initialization
  RegisterClass(TxFrmBase);

[Sherzod]

4 minutes ago, Mehmet Emin said:

Probably calling in initialization will do it

Also in FormCreate:

On 5/14/2020 at 5:39 PM, Sherzod said:

procedure TMainForm.UniFormCreate(Sender: TObject); begin RegisterClass(TxFrmBase); ... end;

 

[N.Marzio]

  TxFrmBase = class(TUniForm)
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }

    //
  public
    { Public declarations }
  end;

  TFrmBase = class of TxFrmBase;

Initialization

  RegisterClass(TxFrmBase );

 

TMainForm = class(TUniForm)

    procedure onClick(Sender : TObect);
private

    function FindAnyClass(const aName: string): TClass;

   procedure showMyForm(aMyForm : string);

public

end;

function TMainForm.FindAnyClass(const aName: string): TClass;
var
  ctx: TRttiContext;
  typ: TRttiType;
  list: TArray<TRttiType>;
begin
  Result  := nil;
  //
  if Trim(aName) = ''  then exit;
  //
  ctx     := TRttiContext.Create;
  list    := ctx.GetTypes;
  for typ in list do begin
    if typ.IsInstance and (EndsText(aName, typ.Name)) then begin
      Result := typ.AsInstance.MetaClassType;
      break;
    end;
  end;
  ctx.Free;
end;
 

procedure TMainForm.showMyForm(aMyForm : string);

var
  lTag : TFrmBase;
begin
      lTag := TFrmBase(FindAnyClass(aMyForm));
      //
      with (lTag).Create(UniApplication) do begin

      ....

         Show();

     end;
end;

procedure TMainForm.onClick(Sender : TObect);      

begin

    showMyForm('MyPersonalForm');

end;

 

If it can serve, I attach the units

Bye