Code - Orakel v1.5.0

[GPRSNerd]

Es sollte doch eigentlich sogar viel einfacher sein, Position, Größe und State des Forms einfach beim Beenden zu speichern und beim Start wieder herzustellen. Mache ich in meinen Applikationen genauso, nur speicher ich die Daten in der Registry:

Delphi-Quellcode:

procedure TForm_Main.FormCreate(Sender: TObject);
begin
  with MyRegistry1 do
  begin
    Open;
      self.top     := ReadInteger('', 'Top',        0);   //Default Main-Window-Top
      self.left    := ReadInteger('', 'Left',       0);   //Default Main-Window-Left
      self.height  := ReadInteger('', 'Height',     self.Constraints.MinHeight); //Default Main-Window-Height
      self.width   := ReadInteger('', 'Width',      self.Constraints.MinWidth); //Default Main-Window-Width
      self.WindowState := TWindowState(ReadInteger('', 'WindowState',0));   //Default Window-State
    close;
  end;
end;


procedure TForm_Main.FormDestroy(Sender: TObject);
begin
  with MyRegistry1 do
  begin
    Open;
      WriteInteger ('', 'WindowState', Ord(self.WindowState));
      if self.WindowState=wsNormal then            //Wenn Fenster normal,
      begin
        WriteInteger ('', 'Top',    self.top);     //nicht max oder min,
        WriteInteger ('', 'Left',   self.left);    //dann zusätzlich Größe
        WriteInteger ('', 'Height', self.Height);  //und Position speichern
        WriteInteger ('', 'Width',  self.Width);
      end;
    close;
  end;
end;