IntraWeb Links

[hirnstroem]

'loha Folks,

es ist Freitag und ich möchte noch kleine Teilerfolge verzeichnen können vor dem Feierabend.

Ich versuche eigentlich nichts anderes als eine Prozedur zu schreiben, welche ich für jegliche klicks auf Links in einem IntraWeb Projekt verwenden kann.

An und für sich wird bei einem Klick auf einen Link immer der Name der aufzurufenden Seite übergeben (wie im Code anhand des Beispiels Logout zu sehen)

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
  end;
  Release;
end;

Die Zweite Prozedur ist dafür da die Pages dann auch aufzurufen. Als erstes wird da überprüft ob die seite eventuell schon irgendwo ist. Da wo ich den Kommentar gesetzt habe, würde ich dann gerne eine Seite aus dem String 'frm_' und derVariable FormName welche ja beim Linkklick mitgegeben wird erzeugen.

Ich habe schon etliche Varianten ausprobiert, leider funktioniert keine.

Wie geht das?

Grüsse
hirnstroem

[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.

[hirnstroem]

Vielen Dank! Funktioniert tadellos.