[SHIFT999]

Как изменить свойство TButton на другой форме, номер которого зависит от переменной count?
С лэйблом работает такое:

Код:

TLabel(Form1.Components[count]).Visible := True;

А а то же для кнопки уже нет:

Код:

TButton(Form1.Components[count]).Visible := True;

[poli-smen]

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

Как изменить свойство TButton на другой форме, номер которого зависит от переменной count?
С лэйблом работает такое:

Код:

TLabel(Form1.Components[count]).Visible := True;

А а то же для кнопки уже нет:

Код:

TButton(Form1.Components[count]).Visible := True;

С кнопкой тоже такое будет работать. Если то конечно кнопка - иначе жди глюков
Вообще лучше проверять что там действительно кнопка:

Код:

if Form1.Components[count] is TButton
  then TButton(Form1.Components[count]).Visible := True
  else ShowMessage('Это не кнопка!');

[SHIFT999]

Мда, выдается сообщение, что это не кнопка... Активируется вообще почему-то лейбл, хоть и написано TButton.
Может другой способ найдется?

[robt]

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

Может другой способ найдется?

нанять програмиста?
Form1.Components это список всех элементов на форме а цифра в [] это номер конкретного элемента, делай выводы

[Alegun]

Вот так точно будет работать, "проверено электроникой" :-:

Код:

for i := 0 to form2.ComponentCount-1 do
  if (form2.Components[i] is TButton) and (i= count) then
     (form2.Components[i] as TButton).Visible:= true;

из чего выходит:

Код:

if (form2.Components[count] is TButton)then
     (form2.Components[count] as TButton).Visible:= true;

[SHIFT999]

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

Вот так точно будет работать, "проверено электроникой" :-:

Код:

for i := 0 to form2.ComponentCount-1 do
  if (form2.Components[i] is TButton) and (i= count) then
     (form2.Components[i] as TButton).Visible:= true;

из чего выходит:

Код:

if (form2.Components[count] is TButton)then
     (form2.Components[count] as TButton).Visible:= true;

Нет... не срабатывает.

[Alegun]

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

Нет... не срабатывает.

Создал новый проект, добавил форму и кучу баттонов и др, прописал в uses unit2, в обработчике кнопки на первой форме задал count:= 5 (баттон4) - работает.

[poli-smen]

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

Нет... не срабатывает.

Для начала сделай так и посмотри, что у тебя под каким порядковым номером:

Код:

var
  i: Integer;
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    for i := 0 to Form1.ComponentCount - 1 do
    begin
      sl.Add(Format('Номер=%d'#9'Компонент="%s"'#9'Имя="%s"',
        [i, Form1.Components[i].ClassName, Form1.Components[i].Name]));
    end;
    ShowMessage(sl.Text);
  finally
    sl.Free;
  end;
end;