Переменные

[HardRock]

Сообщение от Stilet

И желательно в отдельном модуле, который будет подключен везде.

Можно поподробнее? Глобальную, в смысле public или где? И про модули поподробнее пожалуйста.

[Алексей_2012]

в публик поставить можешь допустим так:

public 
...
j:byte;
...

onclick по кнопке на форм 1 можешь так сделать:

procedure Tform1.Button1click(sender:Tobject);
begin
j:=1;
form2.show;
form1.hide;
end;

далее при показе второй формы можешь вписать условие, примерно так:
в событие OnShow формы2 добавить такой код:

procedure Tform2.OnSHow..
begin

if form1.j=1 then button1.enabled:=true
else button1.enabled:=false;

end;

если хочешь деактивировать кнопку на форме 1, то пиши так:

procedure Tform2.OnSHow..
begin

if form1.j=1 then form1.button1.enabled:=true
else form1.button1.enabled:=false;

end;

доступно объяснил? Хотел бы спросить, смысл данного ТЗ какой?)

[HardRock]

Спасибо большое, вопрос исчерпан.