EditBoxen frei verschiebbar

[torud]

Ich habe mal ein kleines Beispiel zum Schreiben der Edits erstellt.

Vielleicht kannst Du damit ja was anfangen und daraus eine prozedure zum Einlesen herleiten? In diesem Beispiel siehst Du wie man die Edit-Daten lef und top in eine Ini schreibt und das ganze einfach beim Beenden des Programmes aufruft. Du müsstest nun eine Routine zum Laden schreiben und diese onActivate einbinden.

Delphi-Quellcode:

uses
  IniFiles;  //wird benötigt zum schreiben von ini´s
var
  App_Pfad:String; //globale Variable

procedure TForm1.FormCreate(Sender: TObject);
begin
  App_Pfad:=ExtractFileDir(Application.ExeName);
  if not(AnsiLastChar(App_Pfad)='\') then App_Pfad:=App_Pfad+'\';
end;

procedure TForm1.SaveEdits;
var
  ini:TIniFile;
  i:integer;
begin
  ini:=TIniFile.Create(App_Pfad+'settings.ini');
  for i:=0 to ComponentCount-1 do
    begin
       if (Components[i] is TEdit) then
         begin
           ini.WriteInteger(Components[i].Name,'left',(Components[i] as TEdit).Left);
           ini.WriteInteger(Components[i].Name,'top',(Components[i] as TEdit).Top);
         end;
    end;
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
    SaveEdits;
end;

Viel Spass damit