Gemme positioner på vindue

Ikke mig bekendt, du må gemme værdierne i en fil, som du så kan læse når programmet startes

Jeg plejer at lave en grundform som alle andre forme så arver fra, i grundformen gemmer jeg formens position og størrelse i regbasen.


procedure TMDIGrundForm.SaveWindowPos;
var
  Reg : TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.Rootkey:=HKEY_CURRENT_USER;
  Reg.Openkey('Software\ditprogramnavn',true);

  Reg.WriteInteger(Caption+' top',top);
  Reg.WriteInteger(Caption+' left',left);
  Reg.WriteInteger(Caption+' width',width);
  Reg.WriteInteger(Caption+' height',height);

  Reg.Free;
end;

procedure TMDIGrundForm.LoadWindowPos;
var
  Reg : TRegistry;
begin
    Reg:=TRegistry.Create;
  Reg.Rootkey:=HKEY_CURRENT_USER;
  Reg.Openkey('Software\ditprogramnavn',true);

  if Reg.ValueExists(Caption+' top') then
  begin
        try
            top:=Reg.ReadInteger(Caption+' top');
      left:=Reg.ReadInteger(Caption+' left');
      if BorderStyle<>bsSingle then
      begin
          width:=Reg.ReadInteger(Caption+' width');
          height:=Reg.ReadInteger(Caption+' height');
      end
      else
                width:=POrgWidth;
      except
          ShowMessage('Fejl under indlæsning af vindue pos oplysninger.');
      end;
  end
  else
      width:=POrgWidth;

  Reg.Free;
end;

procedure TMDIGrundForm.FormCreate(Sender: TObject);
begin
//    MDIGrundForm.Width:=0; // skjul MDIGrundForm
  POrgWidth:=Width;
  LoadWindowPos;
end;

procedure TMDIGrundForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
    SaveWindowPos;
//    Action:=caFree;
end;

'en grundform som alle andre forme så arver fra'

Den må jeg nok lige have skåret ud i bølgepap. Det lyder som noget rigtigt smart men jeg er ikke med på hvad, hvordan.
(jeg er gammel TurboPascal og VB programmør så meget af det her Delphi fancy noget er helt volapyk for mig endnu)

Jeg bruger Delphi 7 og gør man således:

Vælg i menuen File > New > Other
Vælg fanen med dit Project navn
Vælg din grund form eller hvilken form du nu ønsker
Der skal være prik i Inherit
Tryk OK

Alt hvad der er af kode og komponenter på din grundform bliver nu arvet af din nye form, dvs. hvis du ændre noget på din grundform bliver det automatisk ændret på alle de forme der arver herfra.

OK - det vil sige det er en form for 'template' hvis man kan sige det.

Jeg kan se i din kode at du har en variabel der hedder POrgWidth - hvad bruges den til og hvor tildeles den værdi? (kan kun se at du læser fra den) - men det er jo nok heller ikke hele din kode du har vist her.

Vil man ikke også kunne lave det som vist nok hedder en class som man så kalder med formens navn (FromProperties.Save(Self)) og så få den til at gøre arbejdet?

Jeg fik noget kode fra borrisholt til at gemme en fil med nogle indstillinger. Det var sådan en class fidus. Måske skal jeg lige checke det program hvor jeg bruger det. og så se om ikke det var en løsningsmetode.

POrgWidth kan du bare fjerne.

Jeg er endt op med at lave en lille unit med funktioner til at gemme og hente formpositioner i registry.
Den gemmer kun position, ikke størrelse (endnu)

Det fungerer efter hensigten i den lille demo jeg har lavet til at teste det med. Så det bliver nok den vej jeg går.

Tror måske der vil være lidt problemer med at bruge det under Vista

Definer problemer.
Hvis det kan du nemt få en kopi af mit testsetup for at prøve det.

For at udføre det ting, som Kroning har beskrevet skal programmet køres med administrator rettigheder

Også når det er HKEY_CURRENT_USER ?

Jeg har ikke Fista så jeg kan ikke teste det.

Lad mig få en kopi af dit test setup, så tester jeg lige engang om jeg tager fejl

Send mig lige en reminder mail på adressen

hp snabelting consol punktum dk

så skal jeg sende det i morgen når jeg kommer på arbejde. Min memorystick med backup ligger ude på mit skrivebord :-)

Testmateriale er sendt til afsender af modtagne mail

Har testet det på en Vista 64 bit og det virker perfekt, så Kroning havde ret med hensyn til at Vista accepter skrivning til HKEY_CURRENT_USER

Gik videre af den vej jeg selv kom frem til og som vist i test sendt til spil2vind