VPF::Как сделать определенные компоненты enable:=false

Валентин85

Дата 8.10.2012, 10:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.9.2012

Репутация: нет
Всего: нет

Мне нужно пройтись по всем компонентам формы и если имья компонента соответствует критерию то его нужно сделать enable:=false
Делаю так

Код


for i := 0 to ComponentCount - 1 do
        begin
          if Components[i].Name = 'Button2' then
//что сдесь писать?
end;

на форме различные компоненты, и нужно по имени узнать соответствует ли он критерию поиска. Если да - сделать enable:=false
Подскажите кто знает!!!!!!

Illusion Dolphin

Дата 8.10.2012, 10:58 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Код


if Components[i] is TButton) then
  TButton(Components[i]).Enabled := False;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

Валентин85

Дата 8.10.2012, 11:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.9.2012

Репутация: нет
Всего: нет

Да!! НО!!!
на форме лежат не только кнопки а и PopupMenu, MainMenu. И нужно некоторые из них тоже enable:=false
как обратиться к нужному по имени и сказать ему - enable:=false
нашел MyComponent :=FMain.FindComponent('имя компонента')
а дальше не знаю что делать

Illusion Dolphin

Дата 8.10.2012, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

Цитата

на форме лежат не только кнопки

Можно сделать так:

Код


if Components[i] is TControl) then
  TControl(Components[i]).Enabled := False;

т.к. Enabled доступно для всех потомков контрола. Будет работать для всего что видно на форме в клиентской области.

Цитата

PopupMenu, MainMenu. И нужно некоторые из них тоже enable:=false

PopupMenu, MainMenu не имеет свойства Enabled.

Если надо выключать TMenuItem то надо дописать, т.к. они не наследуются от TControl:

Код


if Components[i] is TMenuItem) then
  TMenuItem(Components[i]).Enabled := False;

--------------------

kami

Дата 8.10.2012, 12:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

Репутация: 23
Всего: 72

Код


function AllowedName(Component: TComponent): boolean;
const
  arr: array[0..2] of string = ('btnSomeButton', 'sbScrollBar', 'pnSimplePanel');
begin
  Result:=False;  
  for i:=Low(arr) to High(arr) do
    if Component.Name = arr[i] then
      begin
        Result:=True;
        break;
      end;
end;

....
procedure DisableSomeControls;
var
  i: integer;
begin
  for i:=0 to ComponentCount-1 do
    if AllowedName(Components[i]) then
      if Components[i] is TControl then
        TControl(Components[i]).Enabled:=False
      else
        if Components[i] is TMenuItem then
          TMenuItem(Components[i]).Enabled:=False;

Валентин85

Дата 8.10.2012, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 26.9.2012

Репутация: нет
Всего: нет

Да разобрался!
Всем огромное спасибо за помощь!!!

Тема закрыта!!!!!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »