Form Reihenfolge abändern

[Velaskes]

Hallo
Ich habe nun mein Programm fast fertig und musste aber gestern feststellen, dass ich eine Login Seite vergessen habe.
Ich programmiere via Delphi XE eine Webapplication mittels IntraWeb/VCL for WEB. Ich wollte nun fragen wie ich meine Login-Seite als Startseite aufrufen kann. Noch startet sich bei mir meine alte erste Seite, die nun die Nummer zwei sein soll.
Ich habe bereits versucht das Hauptformular(Projekt->Option->Formulare), welches bei mir leer ist, zu ändern. Jedoch hatte das keinen Effekt.
An dieser Stelle wird mir natürlich die Bedeutung einer Projekt-Planung bewusst.

Kann mir jemand helfen oder darf ich mein Projekt komplett neu schreiben?

Vielen Dank im vorraus.

Grüsse

[Chriscode]

Hallo,
schau mal in die .dpr Datei. Dort kannst du festlegen welche Form zuerst erzeugt wird:

Code:

Application.CreateForm(TForm1, Form1);

Zusätzlich würde ich die Reihenfolge im uses Bereich entsprechend der gewünschten Reihenfolge ändern, da bin ich mir allerdings nicht 100% sicher ob dies erforderlich ist.

LG,
Chris

[himitsu]

Bzw. schau mal in die Projektoptionen ... da sollte es auch drinstehn.

[Velaskes]

Vielen dank für deinen Antwort aber bis jetzt kam ich noch nicht weiter mit den Ratschlägen: hier erstmal meine *.dpr da finde ich nur ein "TIWSTart" das nirgendwo hinführt.

Delphi-Quellcode:

program IWWEBAppPM;

uses
  Forms,
  IWStart,
  UTF8ContentParser,
  Login in 'Login.pas' {iwfLogin: TIWAppForm},
  PatientList in 'PatientList.pas' {iwfPatientList: TIWAppForm},
  ServerController in 'ServerController.pas' {IWServerController: TIWServerControllerBase},
  UserSessionUnit in 'UserSessionUnit.pas' {IWUserSession: TIWUserSessionBase},
  PatientData in 'PatientData.pas' {dmPatient: TDataModule},
  PatientDetails in 'PatientDetails.pas' {IWFPatientDetails: TIWAppForm},
  StudyList in 'StudyList.pas' {iwfStudyList: TIWAppForm},
  fViewer in 'fViewer.pas' {iwfViewer: TIWAppForm},
  SeriesList in 'SeriesList.pas' {iwfSeriesList: TIWAppForm},
  fViewer2 in 'fViewer2.pas' {iwfViewer2: TIWAppForm};

{$R *.res}

begin
  TIWStart.Execute(True);
end.

und hier noch mein Projekt->Option->Formulare Fenster(Siehe Anhang).Hab keine Ahnung ob die Felder so leer und ungefüllt korrect sind.
Achso wenn ich ein "Application.CreateForm(TIWFLogin,iwfLogin)" einfüge bringt er mir den Fehler:

Zitat:

Undeklarierter Bezeichner

Wenn ich dann versuche das iwfLogin zu deklarieren, komm ich vom Gedankengang nicht mehr klar.
Vllt. hilft es ja *hopefully*

[Chriscode]

Dein Loginformular muss natürlich automatisch erzeugt werden in den Projektoptionen

LG,
Chris

[Velaskes]

haha. ja so war auch mein Gedankengang. also natürlisch doppelklick auf die iwflogin. aber beim Klick
auf okay kam dann

Zitat:

Der Aufruf von Application.CreateForm fehlt oder nicht korrekt.

Also hinzugefügt dann. und natürlich auch eine Variable im iwflogin angelegt

Delphi-Quellcode:

type
  TiwfLogin = class(TIWAppForm)
    iwlUsername: TIWLabel;
    iwlPassword: TIWLabel;
    iwePassword: TIWEdit;
    iweUsername: TIWEdit;
    iwbLogin: TIWButton;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
  public

  end;

  var iwfLogin : TiwfLogin;
implementation

{$R *.dfm}

end.

Und die *.dpr bearbeiten. Änderungen kannst du im Screenshot sehen. aber dann zeigt mir Delphi:

Zitat:

Exception EAccessViolation in Modul IWWEBAppPM.exe bei 001CA226.

Zugriffsverletzung bei Adresse 005CA226 in Modul 'IWWEBAppPM.exe'. Lesen von Adresse 00000144.

[CCRDude]

Spontan würde ich raten, dass die Reihenfolge der Einbindung der Units eine Rolle spielt, denn da die Formulare sich nicht in der Hauptdatei registrieren, tun Sie das evtl. im initialization oder in Klassenkonstruktoren innerhalb der Units? Wenn "iwfViewer2" die alte neue Seite 2 ist, spräche das dafür. Also den uses-Teil umsortieren?

[Velaskes]

Zitat von CCRDude:

Spontan würde ich raten, dass die Reihenfolge der Einbindung der Units eine Rolle spielt, denn da die Formulare sich nicht in der Hauptdatei registrieren, tun Sie das evtl. im initialization oder in Klassenkonstruktoren innerhalb der Units? Wenn "iwfViewer2" die alte neue Seite 2 ist, spräche das dafür. Also den uses-Teil umsortieren?

Leider muss ich dich enttäuschen. die Patientlist.pas war die alte erste Seite.

[Chriscode]

Zitat von Velaskes:

Delphi-Quellcode:

type
  TiwfLogin = class(TIWAppForm)
    iwlUsername: TIWLabel;
    iwlPassword: TIWLabel;
    iwePassword: TIWEdit;
    iweUsername: TIWEdit;
    iwbLogin: TIWButton;
    IWTemplateProcessorHTML1: TIWTemplateProcessorHTML;
  public

  end;

  var iwfLogin : TiwfLogin;
implementation

{$R *.dfm}

end.

Mit der von dur geposteten Projektdatei kann es definitiv nicht funktionieren. Dort wird doch überhaupt keine Anweisung ausgeführt. Wo soll denn da ein Formular erzeugt werden?

LG,
Chris

[himitsu]

zum Anhang in #4

Kannst du da bei "Hauptformular" dein Loginfom auswählen?