IntraWeb Links

[Cetus]

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.