Nach Close von Form2 eine Funktion ausführen

[scrat1979]

Hier mal ein Beispiel, wie ich das machen würde:

Delphi-Quellcode:

 [...]
 type
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    function ReadINI(Datei : String) : Integer;
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;
 [...]

procedure TForm1.FormCreate(Sender: TObject);
VAR DesignNo : Integer;
begin
  DesignNo := ReadINI(ExtractFilePath(ParamStr(0))+'settings.ini');
  if DesignNo = -1 then ShowMessage('Design nicht gefunden!')
    else ShowMessage('Design Nr. ' + IntToStr(DesignNo) + ' ist aktiv!');
end;

function TForm1.ReadINI(Datei : String) : Integer;
var MeinINIFile : TIniFile;
begin
  Try
    MeinINIFile := TIniFile.Create(Datei);
    result := MeinINIFile.ReadInteger('Configure', 'Design', -1);
  Finally
    MeinINIFile.Free;
  End;
end;

[...]

Bei mehreren Einzulesenden Dingen natürlich nicht als Funktion mit Rückgabe sondern als Prozedur, welche Variablen den Werten zuweist. Aber soll ja nur mal die Funktionsweise demonstrieren...


Die INI-Datei sehe dann so aus:

============ SCHNIPP ==============
[Configure]
Design=4
============ SCHNAPP ===============

Grüße SCRaT