Показать сообщение отдельно
  #8  
Старый 30.04.2013, 01:07
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

И не будет, integer и событие, это разные вещи, если только здесь не идёт речь о массиве кнопок, но можно вот так
Код:
var
i,j: integer;
arr: array of integer;
begin
for i := 0 to ComponentCount - 1 do
   if (Components[i] is TButton) then
    for j := Low(arr) to High(arr) do
     if (Components[i] as TButton).Tag = arr[j] then (Components[i] as TButton).OnClick;
end;
или
Код:
var
i: integer;
arr: array of integer;
begin
for i := Low(arr) to High(arr) do
(FindComponent('Button' + IntToStr(arr[i])) as TButton).OnClick;
end;
Ответить с цитированием