Обновление первой формы после закрытия второй - Delphi - Ответ 3035470

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Vcl.Samples.Gauges,unit3, Gauges;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label7: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    ProgressBar1: TProgressBar;
    Gauge1: TGauge;
    Button1: TButton;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    Procedure ZapuskTimer;
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  TimeVal : TDateTime = 0;
implementation
 
{$R *.dfm}
// Процедура для загрузки ограничений ------------------------------------------
procedure LoadOgrFile;
begin
AssignFile (FileLoadOgr,'ogran.txt');
Reset (FileLoadOgr);   // Открываю файл для чтения
Readln (FileLoadOgr, LOgr[0]);   // Загружаю устанленные часы ограничения
Readln (FileLoadOgr, LOgr[1]);   // Загружаю устанленные минуты ограничения
 
CloseFile (FileLoadOgr);   // Закрываю файл
 
Form1.Label7.Caption := String(LOgr[0]) + ':' + String(LOgr[1])+':00';
 
end;
//==============================================================================
 
 
 
  //На выход функции количество секунд
Function TimeToInteger(T:TDateTime):Integer;
Var
  h,m,s,ms : Word;
Begin
  DecodeTime(T,h,m,s,ms);
  Result:=s+(m+h*60)*60;
End;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Form3.Show;
end;
 
Procedure TForm1.ZapuskTimer;
Begin
  LoadOgrFile;
  //Выключаем таймер.
  Timer1.Enabled := False;
  //Задаём интервал
  Period := StrToTime(Label7.Caption);
  //Определяем конечное время - оно на Period большее текущего времени.
  TimeVal := Time + Period;
  //Показываем начальное время.
  Label1.Caption := FormatDateTime('hh:mm:ss', Period);
 
    //Начальные значения в ProgressBar1
  ProgressBar1.Max:=0;
  ProgressBar1.Max:=TimeToInteger(Period);
  ProgressBar1.Position:=0;
  //////////////////////////////////////////////////////////
  Gauge1.MaxValue:=TimeToInteger(Period);
  /////////////////////////////////////////////
  //Включаем таймер.
  Timer1.Enabled := True;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var   Period : TDateTime;
begin
  ZapuskTimer;
end;
 
 
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  Temp : TDateTime;
begin
  //Узнаём оставшееся время.
  Temp := TimeVal - Time;
 
  //Отслеживаем момент, когда время истечёт.
  if Temp <= 0 then begin
    //Останавливаем таймер.
    Timer1.Enabled := False;
    //Показываем конечное оставшееся время.
    Label1.Caption := FormatDateTime('hh:nn:ss', 0);
         Timer1.Enabled:=False;
    ShowMessage('bym');
    //Здесь в виде реакции на завершение интервала, можно выполнить
    //какой-то код или вызвать какую-нибудь процедуру
    //...
    //...
    //...
 
    //Выходим.
    Exit;
  end;
 
  //Показыавем оставшееся время.
  Label1.Caption := FormatDateTime('hh:nn:ss', Temp);
 
  ProgressBar1.Position:=ProgressBar1.Max-TimeToInteger(Temp);
  Gauge1.Progress:=Gauge1.MaxValue-TimeToInteger(Temp);
end;
end.

unit Unit3;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Spin,
  StdCtrls, Controls, Spin, Classes;
 
type
  TForm3 = class(TForm)
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
    sOgr              : Array [0..1] of String;
      lOgr              : Array [0..1] of String;
   FileSaveOgr : TextFile;
   FileLoadOgr: TextFile;
implementation
uses unit1;
 
{$R *.dfm}
  // Процедура для сохранения установок в файл -----------------------------------
procedure SaveInFile;
begin
AssignFile (FileSaveOgr, 'ogran.txt');
Rewrite(FileSaveOgr);    // Открываю файл для записи
 
 
SOgr[0] := Form3.SpinEdit1.Text;   // Установленое количество часов
Writeln(FileSaveOgr, SOgr[0]);    // Сохраняю в файл
SOgr[1] := Form3.SpinEdit2.Text;   // Установленое количество минут
Writeln(FileSaveOgr, SOgr[1]);    // Сохраняю в файл
 
CloseFile(FileSaveOgr);    // Закрываю файл
end;
//==============================================================================
 
// Процедура для загрузки ограничений ------------------------------------------
procedure LoadOgrFile;
begin
AssignFile (FileLoadOgr,'ogran.txt');
Reset (FileLoadOgr);   // Открываю файл для чтения
 
 
Readln (FileLoadOgr, LOgr[0]);   // Загружаю устанленные часы ограничения
Readln (FileLoadOgr, LOgr[1]);   // Загружаю устанленные минуты ограничения
 
CloseFile (FileLoadOgr);   // Закрываю файл
 Form1.Label7.Caption := String(LOgr[0]) + ':' + String(LOgr[1])+':00';
end;
//==============================================================================
 
procedure TForm3.Button1Click(Sender: TObject);
begin
SaveInFile;
ShowMessage('Ограничения успешно сохранены');
 end;
 
 
procedure TForm3.Button2Click(Sender: TObject);
begin
  Form1.ZapuskTimer;
  Form3.Close;
end;
 
end.