Show Posts
31
Вопросы / Questions / Вопрос о скрипте
« on: November 05, 2018, 18:03:44 »
Почему скрипт работает только поле нажатия на кнопку? После первого нажатия.
procedure Execute(var State: Integer);
var
BT: TComponent;
begin
BT := FindObject('ButtonSpr');
case State of
0:
begin
BT.BeginUpdate;
BT.Set('Hint', '@Lng:16;');
BT.EndUpdate;
end;
1:
begin
BT.BeginUpdate;
BT.Set('Hint', '@Lng:17;');
BT.EndUpdate;
end;
end;
end;
procedure Execute(var State: Integer);
var
BT: TComponent;
begin
BT := FindObject('ButtonSpr');
case State of
0:
begin
BT.BeginUpdate;
BT.Set('Hint', '@Lng:16;');
BT.EndUpdate;
end;
1:
begin
BT.BeginUpdate;
BT.Set('Hint', '@Lng:17;');
BT.EndUpdate;
end;
end;
end;
