Registriert seit: 30. Dez 2004
Ort: Ruhrpott
239 Beiträge
Delphi 10.4 Sydney
|
Re: Code - Orakel v1.3.8
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
|
|
Zitat
|