Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как сделать определенные компоненты enable:=false

Автор: Валентин85 8.10.2012, 10:49

Мне нужно пройтись по всем компонентам формы и если имья компонента соответствует критерию то его нужно сделать 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

Код


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

Автор: Валентин85 8.10.2012, 11:10

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

Автор: Illusion Dolphin 8.10.2012, 11:50

Цитата

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

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

Код


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

Код


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

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

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