Application.ShowMainForm:= False Rückgängig machen Ohne Self.Show

[Fussel9]

Hi, in meiner Anwendung führe ich am Anfang direkt den Befehl Application.ShowMainForm:=False aus,
in einem anderen Formular kann man dann ein Passwort eingeben und dann soll die MainForm wieder sichtbar werden.

Application.ShowMainForm:=True funktioniert nicht, da kommt nur ein *Bing* und die Form wird nicht angezeit...
FormMain.Show geht leider auch nicht, da ich UMain nicht in die Uses einfügen kann, weil sonst eine Zirkuläre Unit-Refferenz entsteht...

Daher meine Frage: Gibt es eine andere Möglichkeit das Hauptformular wieder sichtbar zu machen oder die Zirkuläre Unit-Refferenz zu umgehen?

[DeddyH]

Zitat:

Zitat von Fussel9 (Beitrag 1029711)

FormMain.Show geht leider auch nicht, da ich UMain nicht in die Uses einfügen kann, weil sonst eine Zirkuläre Unit-Refferenz entsteht...

Du weißt aber, dass Du 2 uses-Klauseln definieren kannst?

[Fussel9]

Nein,
könntest du das erklären?

EDIT:

Oh, habe es schon selbst herrausgefunden.
ABer ich wusste wirklich nicht das das zwei verschiedene sind....

danke

[DeddyH]

Es gibt einen interface-Abschnitt und einen implementation-Abschnitt. Beide können eine eigene uses-Klausel enthalten. Übrigens übernimmt Delphi das selbst gern für Dich (auf Nachfrage).

[Fussel9]

Delphi-Quellcode:

implementation
uses UMain;
var FMain: TFormMain;
{$R *.dfm}
{ TFEnterPW }

procedure TFEnterPW.CheckPasswort;
var Load: TInifile;
    passwort:String;
begin
  Load:=TInifile.Create(ExtractFilePath(ParamStr(0))+'settings.lem');
  ShowMessage(ExtractFilePath(ParamStr(0))+'settings.lem');
  passwort:=Load.ReadString('PW','MPW','AGAbugudalo91634187621986201245237156');
    if not (passwort='AGAbugudalo91634187621986201245237156') then
      begin
        if not (passwort=EPasswort.Text) then
          begin
            MessageDLG('Falsches Passwort!',mtWarning,[mbCancel],0);
            self.Close;
          end
        else
          begin
            MessageDLG('Passwort stimmt mit dem Masterpasswort überein.',mtInformation,[mbOK],0);
            Application.ShowMainForm:=True;
            FMain:=TFormMain.Create(self);
            FMain.Show;
          end;
      end
    else
      begin
        MessageDLG('Ladefehler!',mtError,[mbOK],0);
      end;
  Load.Free;
end;

Wenn ich es so schreibe, dann kommt eine Fehlermeldung: Der Gerätename wird von dieser Anwendung bereits als Alias genutzt...

[DeddyH]

Wozu jetzt die globale Variable?

[Fussel9]

Ok, aber ob lokal oder global macht hier keinen unterschied.

[DeddyH]

Kommentier die Zeile einfach mal aus.

[Fussel9]

Woher kennt denn nun die Unit UEnterPW die Variable FormMain???

Aber es funktioniert ^^ THX

[DeddyH]

Zitat:

Delphi-Quellcode:

var FMain: TFormMain;

Die ist nicht flüssig, sondern überflüssig.