Процедура или функция для повторного действия для разных объектов на форме

[abzhapparovmaxat]

Asinkrit Начинаю понимать (действительно внимательней надо быть), трудно соорентироватся в коде, Бэйсик избаловал меня) СПАСИБО!

evg_m Сейчас посмотрим, СПАСИБО!

СПАСИБО ВСЕМ! Сначала не было ничего а теперь, Вы меня даже обеспечили выбором)

П.С. (не хочу создавать новую тему) Для практики я начал программировать Файловый менеджер, Вообщем все путем, только либо баг, либо фича... Скачаля я КОМПОНЕНТЫ АльфаСкинов, у него есть прекрасный компонент TsShellListView вообщем создаю ему обработчик на событие ОнЧэнж, и во время исполнения программы, когда я меняю МЫШЬю выделение, он работает, но стоит мне поменять выделенный элемент клавиатурой(стрелками) то он у меня выполняется три раза,
procedure TForm1.sShellListView1Change(Sender : TObject; Item: TListItem;
Change: TItemChange);
begin
ShowMessage('asd');
end;
// При изменение выделения клавиатурой - выдает три раза подряд сообщение "asd"
Подскажите, где я не прав. Заранее спасибо

[evg_m]

то он у меня выполняется три раза,

в справке написано.

TItemChange describes the type of change a list item undergoes.

TItemChange can have one of the following values:

при этом одно их них

ctState A change to the list item’s Cut, Focused, or Selected property.

Т.Е. данное событие происходит не только при выборе нового item. но и при УХОДЕ со старого. Вот тебе уже ДВА события одно для старого, одно для нового. где возникает третье надо смотреть значения параметров.+

видимо так
старый потеря фокуса.(focused)
новый получение фокуса.(focused)
новый пометка как выбранный (selectted)
вот их уже три.

[JUDAS]

а по Дэльфийски КОМПОНЕНТЫ(или ОБЪЕКТЫ) имеют свое ИД,

у нас в Делфи тоже есть ИД для всех видимых и не видимых компонентов на форме. Еслы Вы в инициализацинном блоке, сопоставите ИД всех нужных компонент с нужными Вам обоработичками:

procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
  for i:=0 to ComponentCount-1 do
  case Components[i].ComponentIndex of
   1:;
   2:;
   ......
  end;
end

;
или для каждой кнопки установите один и тот же обработчик и внутри обработчика будете распределять функции для кнопки вот так:

procedure TForm1.OnCommonClick(Sender: TObject);
begin
  case TComponent(Sender).ComponentIndex of
   1: обработка кода для кнопки 1
   2: обработка нажатия на Панель
   и.т.п
  end;
end;

То получите тот же эффект что и в Бейсике

[abzhapparovmaxat]

evg_m Я использовал Ваш метод Размножения при помощи Фреймов. Но теперь, не могу написать код, создания динамически Фреймов (УЖЕ готовых Фреймов). ЗАДАЧА. Есть Фрейм на нем Компоненты с уже гоовыми наложенными на них процедурами. Как Добавить динамично на Форму этот готовый Фрейм (много раз)?