ShowModal funktioniert nicht

[youuu]

Hi,

ich diesen Code im Programm Quelltext, um einen Login zu realisieren.

Delphi-Quellcode:

    if frm_Login.ShowModal <> mrOk then
      Exit
    else
    Begin
      Application.Title:= 'verwaltung';
      Application.CreateForm(Tfrm_Start, frm_Start);
    End;

in der Login Form habe ich einen Button der

ModalResult:= mrOk; übergibt, jedoch wird immer if frm_Login.ShowModal <> mrOk then Exit ausgeführt, was kann der Grund sein?

[Björn Ole]

So funktioniert das bei mir ganz gut:

Delphi-Quellcode:

Application.Initialize;
Application.MainFormOnTaskbar := True;
with TLoginForm.Create(nil) do
begin
  try
    if ShowModal = mrOk then
    begin
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    end;
  finally
    Free;   
  end;
end;

Edit: Huch, 100ster!

[stahli]

Zeig mal mehr...

(Ups, kein roter Kasten?)

[youuu]

Zitat von Björn Ole:

So funktioniert das bei mir ganz gut:

Delphi-Quellcode:

Application.Initialize;
Application.MainFormOnTaskbar := True;
with TLoginForm.Create(nil) do
begin
  try
    if ShowModal = mrOk then
    begin
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    end;
  finally
    Free;   
  end;
end;

Edit: Huch, 100ster!

Damit erhalte ich eine Zugriffsverletzung

[youuu]

Zitat von stahli:

Zeig mal mehr...

(Ups, kein roter Kasten?)

Delphi-Quellcode:

begin
  Application.Initialize;
  Application.MainFormOnTaskBar:= true;

  frm_Login:= Tfrm_Login.Create(nil);
  try
    if frm_Login.ShowModal = mrOk then
      Application.CreateForm(Tfrm_Start, frm_Start);
  finally
    frm_Login.Free;
  end;
  Application.Run;
end.

Login Form:

Delphi-Quellcode:

procedure Tfrm_Login.ButtonLoginClick(Sender: TObject);
begin
  ModalResult:= mrOk;
end;

[Peter1999]

Sicher, dass da nicht mehr steht?

Lass mich raten , da steht noch irgendwo ein

Code:

close;

was da NICHT hingehört.
Das Modalresult sollte ohnehin über die Property des Buttons gesetzt werden und nicht im Quelltext.

[Björn Ole]

Abgesehen von {frm_Login.}Free; geht dein Code bei mir.

Ha, roter Kasten kam ausnahmsweise mal.

Zitat von Peter1999:

Das Modalresult sollte ohnehin über die Property des Buttons gesetzt werden und nicht im Quelltext.

Wo ist da der Unterschied?

[stahli]

Delphi-Quellcode:

    finally
      frm_Login.Free;
    end;

Das Objekt "frm_Login" ist dort sicher noch nil, da Du die Forminstanz nicht zugewiesen hast.

[youuu]

Zitat von Peter1999:

Sicher, dass da nicht mehr steht?

Lass mich raten , da steht noch irgendwo ein

Code:

close;

was da NICHT hingehört.
Das Modalresult sollte ohnehin über die Property des Buttons gesetzt werden und nicht im Quelltext.

So erstens, Ihr werdet lachen -.-
Ich hab komischerweise ein Closed; bei dem Ereigenis Form Close gesetzt, Gott weiß warum, ich aufjedenfall nicht

Auf dein Property Hinweiß einzugehen, das war gerade nur aus Test Zwecken, weil es davor nicht funktionierte

[xZise]

Moin,
könntest du ein bisschen mehr Code von Tfrm_Login zeigen? Vielleicht setzt du später ModalResult neu?

@Peter1999: Was ist wenn er vorher was testen will, aber aktuell zu Testzwecken nichts macht:

Delphi-Quellcode:

procedure Tfrm_Login.ButtonLoginClick(Sender: TObject);
begin
  if (Username.Text <> '') then
    ModalResult:= mrOk;
end;

Außerdem würde ich da nicht die globale Variable nehmen, also definiere dir eine lokale Variable im Projekt Source Code. So verhinderst du eventuelle Quereffekte. Das geht natürlich nicht, wenn du später auf die globale Variable wieder zugreifst.

Zitat von stahli:

Delphi-Quellcode:

    finally
      frm_Login.Free;
    end;

Das Objekt "frm_Login" ist dort sicher noch nil, da Du die Forminstanz nicht zugewiesen hast.

Nicht, wenn du es vorher initialisierst.

MfG
Fabian