Positionen mehrerer TImage speichern

[Die Muhkuh]

Zitat von smart:

Vielen Dank, Spider! Damit komme ich weiter.

Heike

Bitte,

alternativ könntest du noch sowas machen:

Delphi-Quellcode:

procedure SaveImage(Image: TImage);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('<Pfad, wo gespeichert werden soll>');

  try
    Ini.WriteInteger(Image.Name, 'Left', Image.Left);
    Ini.WriteInteger(Image.Name, 'Top', Image.Top);
  finally
    Ini.Free;
  end;
end;

procedure LoadImage(Image: TImage);
var
  Ini: TIniFile;
begin
  Ini := TIniFile.Create('<Pfad, wo gespeichert werden soll>');

  try
    Image.Top := Ini.ReadInteger(Image.Name, 'Top', 0);
    Image.Left := Ini.ReadInteger(Image.Name, 'Left', 0);
  finally
    Ini.Free;
  end;
end;

Der Aufruf wäre dann:

Delphi-Quellcode:

SaveImage(Image1);
SaveImage(ImageTop);
SaveImage(ImageBottom);

// bzw.

LoadImage(Image1);
LoadImage(ImageTop);
SaveImage(ImageBottom);

Dann wäre der Name des Images eigentlich egal