мне надо чтобы в 1-й форме значение переменной передавалось в другую каждую секунду я это смог сделать в примере Global но не могу у себя т.к. оно или не передаёться или постоянно возвращает значение
вот текст 1-я:
procedure Tcarnage1.hpmptTimer(Sender: TObject);
begin
heal:=100;
if i<50 then begin
i:=i+50;
hpmpt.interval := i;
end else i:= i-50;
globheal:= heal;
2-я:
procedure Tcarnage1.FormCreate(Sender: TObject);
begin
heal:=globheal;
end;
procedure Tcarnage1.hpmptTimer(Sender: TObject);
if i<50 then begin
i:=i+50;
hpmpt.interval := i;
end else i:= i-50;
globheal:= heal;
|