[ctpaxm]

Люди у меня есть проблема: часть кода

Код:

Form1.N37.Visible:=True;
Form1.N38.Visible:=True;
Form1.N39.Visible:=True;
Form1.N40.Visible:=True;
Form1.N42.Visible:=True;

не работает, хотя в подсказке, при написание кода, была подсказка о видимости:/
При запуске - делфи не ругается, а при выполнение необходимых требовоний, для выполнения вышенаписанного кода - нечего не происходит
что не так?

П.С. у меня Делфи 7

[PhoeniX]

Ну, ты разрешаешь показ этих элементов... а что должно, по-твоему, произойти?

[ctpaxm]

разобрался, и нашёл свою ошибку, но спс за помощь

[PhoeniX]

Тогда вопрос, как всегда, такой - ты видишь экстрасенсов? Я не могу поставить диагноз по такому куску кода...

[ctpaxm]

проблема была в другом забыл активировать элемент меню, в котором должны показываться эти элементы

[PhoeniX]

как я и предполагал

[ctpaxm]

кстати, вспомнил ещё один вопрос:
Как отследить изменение переменной типа Integer, и изменить, изходя из изменённой переменной, другую переменную?
ну тоесть
если Int1 изменили с x на y
то Int2 изменилось с z на v

[lmikle]

переменной - никак. а вот если их инкапсулировать в класс, то сами переменные можно будет спрятать, а для свойства написать сеттер, который и произведет все операции:

Код:

T2Int = class
private
  FInt1, FInt2 : Integer;
  procedure SetInt1(Value : Integer);
public
  property Int1 : Integer read FInt1 write SetInt1;
  property Int2 : Integer read FInt2 write FInt2;
end;
...
procedure T2Int.SetInt1(Value : Integer);
begin
  If (FInt = 5) and (Value < 5) Then Int2 := 1;
  FInt1 := Value;
end;