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?

Zitat von Fussel9:

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?

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

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

zusammenfalten · markieren

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

Wozu jetzt die globale Variable?

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

Kommentier die Zeile einfach mal aus.

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

Aber es funktioniert ^^ THX

Zitat:

var FMain: TFormMain;

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