Du musst einfach als erstes alle Klassen die du so aufrufen willst mittles Classes.RegisterClasses registrieren.
Dann kannst du sie über Classes.GetClass aufrufen.
So müsste es funktionieren (nich getestet^^):
Delphi-Quellcode:
procedure Tfrm_Main.logoutbuttonClick(Sender: TObject);
begin
LinkClick(Sender, 'Logout');
end;
procedure Tfrm_Main.LinkClick(Sender: TObject; FormName: string);
begin
if WebApplication.FindComponent('frm_' + FormName) <> nil then
begin
TIWAppForm(WebApplication.FindComponent('frm_' + FormName)).Show;
end
else
begin
// create form with 'Tfrm_' + FormName and show it
TIWAppFormClass(GetClass('Tfrm_' + FormName)).Create(WebApplication).Show;
end;
Release;
end;
initialization
RegisterClasses([Tfrm_Main,Tfrm_Logout]); //Alle Forms/Klassen registrieren, ich hab hier nur 2 verwendet
end.