Problem mit Fenster positionierung

[eddy]

Hallo Daniel B,

ich habe die Stelle, an der die Fehlermeldung kommt, auch erhalten. Zu dem warum und wieso kann ich auch nichts sagen. Nach dem Fehler ist das Formular bei mir unter Win2000 nicht mehr sichtbar (nur als Symbol auf der Start-Leiste).

Folgende Änderung schafft Abhilfe:

Delphi-Quellcode:

      //.....
      end
      else begin // if FensterPosSave = False then begin
//          MainFormMC2004.Position := poScreenCenter;
        MainFormMC2004.Left := (Screen.Width - MainFormMC2004.Width) div 2;
        MainFormMC2004.Top  := (Screen.Height - MainFormMC2004.Height) div 2;
      end;
    finally
      FreeAndNil(ini); //Datei Schliessen/Freigeben
    end;
    // ....

Zu Deinen seltsamen Boolschen Abfragen hat sich ja Christian schon geäußert.

Mir sind noch Deine doppelten Abfragen aufgefallen:

Delphi-Quellcode:

  // ....
  if not (FileExists('MC2004.ini')) then begin
    //....
  end
  else if FileExists('MC2004.ini') then begin
    //....
  end;

Wenn not FileExists falsch ist, dann ist die Datei vorhanden und der else-Zweig kann so aussehen:

Delphi-Quellcode:

  // ....
  if not (FileExists('MC2004.ini')) then begin
    //....
  end
  else begin
    //....
  end;

Programmtechnisch ist es zwar egal, aber die Übersichtlichkeit leidet unnötig und es ist mehr Schreibaufwand.

mfg
eddy

PS: habe erst nach dem Schreiben festgestellt, daß Christian das auch schon behandelt hat.

Man muß eben doch alles Probieren!! Bin noch dem Hinweis von Christian gefolgt und habe Deine OnShow-Procedure nach OnCreate verschoben. Danach funktioniert auch Deine Variante ohne Fehler.

Tschüß