Einzelnen Beitrag anzeigen

Benutzerbild von GPRSNerd
GPRSNerd

Registriert seit: 30. Dez 2004
Ort: Ruhrpott
239 Beiträge
 
Delphi 10.4 Sydney
 
#217

Re: Code - Orakel v1.3.8

  Alt 8. Apr 2009, 12:04
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;
Stefan
  Mit Zitat antworten Zitat