Formkoordinaten speichern

[SnuffMaster23]

Hi,

ich hab das da oben jetz nicht so recht gelesen, aber ich hab sowas mal mit der Registry gemacht, ich posts jetz einfach mal:
FormCreate:

Delphi-Quellcode:

  Reg.OpenKey('\Software\DeinName\ProgrammName', true);
    if Reg.ValueExists('Left') then Form1.Left := Reg.ReadInteger('Left');
    if Reg.ValueExists('Top') then Form1.Top := Reg.ReadInteger('Top');
    if Reg.ValueExists('Width') then Form1.Width := Reg.ReadInteger('Width');
    if Reg.ValueExists('Height') then Form1.Height := Reg.ReadInteger('Height');
    if Reg.ValueExists('Maximized') then
      if Reg.ReadBool('Maximized') then
         Form1.WindowState := wsMaximized;
    if Reg.ValueExists('Standard') then ToolButton1.Tag := Reg.ReadInteger('Standard');
  Reg.CloseKey;

FormClose:

Delphi-Quellcode:

  Reg.OpenKey('\Software\DeinName\ProgrammName', true);
    if not (Form1.WindowState = wsMaximized) then
    begin
      Reg.WriteInteger('Left', Form1.Left);
      Reg.WriteInteger('Top', Form1.Top);
      Reg.WriteInteger('Width', Form1.Width);
      Reg.WriteInteger('Height', Form1.Height);
    end;
    Reg.WriteBool('Maximized', Form1.WindowState = wsMaximized);
    Reg.WriteInteger('Standard', ToolButton1.Tag);
  Reg.CloseKey;

Also das funktioniert!!

Viel Spaß,
Snuffi