Rätselhafte Exception unter Windows 8

[p80286]

Zitat von idefix2:

Der Kunde hat den Computer mit Windows 8.1 komplett neu aufgesetzt (bisher Windows 8.0), und das Programm startet jetzt völlig normal und ohne Fehlermeldung.
Leider wird sich jetzt wahrscheinlich nicht mehr herausfinden lassen, was wirklich schuld war.

Meiner Meinung nach, greift da irgendetwas mit Schwung ins Klo. In ordentlichen Programmen passiert so etwas nicht. (Hatte selbst vor einiger Zeit den Fall, einem Pointer war keine Adresse (mehr) zugewiesen.) Wenn eine solche Exception einmal aufgetreten ist, dann ist da irgendetwas faul! Und es ist Zufall, wenn sie nicht mehr auftaucht, wenn am Source nichts geändert wurde.

Gruß
K-H

[SMO]

Zur Intention des Codes: du möchtest bei Programmstart die Position und Größe des Fensters wiederherstellen, gespeichert beim letzten Programmende?
Dafür würde ich unter Windows eher SetWindowPlacement und GetWindowPlacement nehmen.
Ich weiß nicht, ob deine TFitnessMainForm maximiert werden kann oder nicht, aber wenn ja, dann ist es möglich, dass das Fenster bei Programmende maximiert ist und du so die maximierte Position und Größe speicherst und dann beim nächsten Programmstart diese "falschen" Werte dem nicht-maximierten Fenster zuweist. Mit Get/SetWindowPlacement kommst du direkt an die Koordinaten des Normalzustands (rcNormalPosition).

Ungefähr so:

Delphi-Quellcode:

procedure PositionSpeichern(F: TForm; Ini: TCustomIniFile);
var
  WP: TWindowPlacement;
begin
  WP.length := SizeOf(WP);
  if GetWindowPlacement(F.Handle, WP) then
  begin
    Ini.WriteInteger('Position', 'Links', WP.rcNormalPosition.Left);
    Ini.WriteInteger('Position', 'Rechts', WP.rcNormalPosition.Right);
    Ini.WriteInteger('Position', 'Oben', WP.rcNormalPosition.Top);
    Ini.WriteInteger('Position', 'Unten', WP.rcNormalPosition.Bottom);
    Ini.WriteBool('Position', 'Maximiert', F.WindowState = wsMaximized); // oder WP.showCmd = SW_SHOWMAXIMIZED
  end
  // else Fehlerbehandlung
end;

procedure PositionLaden(F: TForm; Ini: TCustomIniFile);
var
  WP: TWindowPlacement;
begin
  ZeroMemory(@WP, SizeOf(WP));
  WP.length := SizeOf(WP);
  WP.rcNormalPosition.Left := Ini.ReadInteger('Position', 'Links', F.Left);
  WP.rcNormalPosition.Right := Ini.ReadInteger('Position', 'Rechts', F.Left + F.Width);
  WP.rcNormalPosition.Top := Ini.ReadInteger('Position', 'Oben', F.Top);
  WP.rcNormalPosition.Bottom := Ini.ReadInteger('Position', 'Unten', F.Top + F.Height);
  if not Ini.ReadBool('Position', 'Maximiert', F.WindowState = wsMaximized) then
    WP.showCmd := SW_SHOWMAXIMIZED
  else
    WP.showCmd := SW_SHOWNORMAL;
  SetWindowPlacement(F.Handle, WP);
end;

[idefix2]

Danke für den Hinweis, GetWindowPlacement und SetWindowPlacement kannte ich noch nicht.
Wenn der Rechner noch in einem Zustand wäre, wo das Problem auftritt, dann würde ich das ausprobieren. Bis jetzt hatte ich allerdings noch nie beim direkten Setzen der Form-Eigenschaften height und width Probleme, und dass sich Forms ihre Position und Grösse in einer ini-Datei oder, wenn es im Programm eine Benutzerverwaltung gibt, Benutzerabhängig in der Datenbank, merken, je nach Bedarf mit oder ohne Berücksichtigung der Eigenschaft maximized, mache ich eigentlich standardmässig bei allen meinen Programmen.

edit:
Welche Unit muss man einbinden, damit der Compiler TWindowplacement kennt? In der Hilfe zu Delphi 2009 finde ich zwar die Prozeduren GetWindowPlacement und SetWindowPlacement, aber für die Struktur Windowplacement sind nur die C-Headerfiles angegeben und TWindowplacement kennt die Hilfe überhaupt nicht.

[SMO]

Zitat von idefix2:

Welche Unit muss man einbinden, damit der Compiler TWindowplacement kennt?

Die Unit (Winapi.)Windows. Die typischen Synonyme für TWindowPlacement sind tagWINDOWPLACEMENT und WINDOWPLACEMENT. Falls keines davon geht, wurde der Record wohl noch nicht in Delphi 2009 definiert.

Delphi-Quellcode:

  TWindowPlacement = record
    length: UINT;
    flags: UINT;
    showCmd: UINT;
    ptMinPosition: TPoint;
    ptMaxPosition: TPoint;
    rcNormalPosition: TRect;
  end;

[himitsu]

Aber wenn du die Funktionen schon gefunden hast, wer hat dich dann daran gehinder sie dir anzusehen und mal zu gucken wo die Typen für deren Parameter liegen?

[Sir Rufo]

Zitat von himitsu:

Aber wenn du die Funktionen schon gefunden hast, wer hat dich dann daran gehinder sie dir anzusehen und mal zu gucken wo die Typen für deren Parameter liegen?

Es ist halt einfacher und schneller eine Frage im Forum zu posten als in der IDE den Mauszeiger über den Typen zu halten und warten bis der ToolTip erscheint (den muss man ja auch noch lesen) ...

[idefix2]

@himitsu
Es ist wohl nicht der Sinn der Delphi IDE, dass man die in irgendwelchen Units schon vordefinierten Typen in seinem Programm selbst neu deklariert. Oder?

@Sir Rufo
Nachdem die IDE den Typ nicht kennt, erscheint auch kein Tooltip. Hab ich wohl deutlich lesbar geschrieben:

Zitat von idefix2:

... aber für die Struktur Windowplacement sind nur die C-Headerfiles angegeben und TWindowplacement kennt die Hilfe überhaupt nicht.

Auf die Unit Windows hätte ich selbst auch kommen können, habe aber fälschlich geglaubt, dass ich in meiner Unit die unit Windows schon eingebunden habe und der Typ trotzdem nicht bekannt ist. Aber Windows war noch nicht in der Uses Liste.