Повесить общую процедуру на событие кучки компонентов

[Valio]

Дано:
10 компонентов Image.

Надо:
Для всех 10 нужно на событие OnMouseEnter повесить код.

Вопрос:
Как это сделать динамически?

Суть вопроса:
Обычно это делают так: выбирают компонент, жмут вкладку Events, находят нужное событие, щёлкают, пишут куда показала среда.
Но мне както лениво набивать один и тотже текст таким вот образом.

Вот я в цикле перебираю и мне хочется сделать както так, тобишь назвначить на это событие общую процедуру:

(CompImg As TImage).OnMouseEnter(MySuperProcedure);

Но естественно это не работает.

[_Engine_]

(CompImg As TImage).OnMouseEnter := MySuperProcedure;

[Valio]

Спасибо, я так тоже пробывал, но работать это стало только когда я написал:

Procedure TForm1.MySuperProcedure(Sender: TObject);
Begin
// ...
End;

Ну хоть стало работать, а то без Sender не работает )

[spamer]

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

а то без Sender не работает )

Еще бы, ведь Sender ссылается на объект который сгенерировал событие...т.е. по сути Sender ссылается на компонент, который вызывает наш метод обработки события...как-то так...

[Swarog]

Обычно это делают так: выбирают компонент, жмут вкладку Events, находят нужное событие, щёлкают, пишут куда показала среда.

делаешь тоже самое для первого, для второго почти тоже самое только не щелкай дважды по полю а нажми один раз на треугольничек справа и выбери процедуру которая была определена для первого, повтори последний шаг для остальных компонентов

[zvygin1964]

Это возможно если компонентов мало, а если 300 штук?
Нашел, как это делается (http://zoo-mania.ru/delphi/tobjectlist/index.html), но этот пример не работает:

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls, Contnrs;   //добавлен Contnrs

type
  TfrmCallbase = class(TForm)
     {TEditList имя нового класса, на основе TObjectList}
    Edit1: TEdit;
    Edit2: TEdit;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 type
TEditList = class(TObjectList)
  private
    function GetItems(Index: Integer): TEdit;
    procedure SetItems(Index: Integer; const Value: TEdit);
  published
  public
    property Items[Index: Integer]: TEdit read GetItems write SetItems; default;
  end;
var
  frmCallbase: TfrmCallbase;
  EditList: TEditList;

implementation

{$R *.dfm}      { TEditList }
  procedure TfrmCallbase.FormCreate(Sender: TObject);
begin
  EditList := TEditList.Create();
  EditList.Add(Edit1);
  EditList.Add(Edit2);

  for i:=0 to EditList.Count - 1 do
  EditList[i].Text = 'default';
end;

  procedure TfrmCallbase.FormDestroy(Sender: TObject);
begin
 EditList.Free;
end;

function TEditList.GetItems(Index: Integer): TEdit;
begin
 Result := TEdit(inherited GetItem(Index));
end;

procedure TEditList.SetItems(Index: Integer; const Value: TEdit);
begin
  inherited SetItem(Index, Value);
end;

end.

Error in module main: Declaration of class TForm1 is missing or incorrect.

Где забыли (или стёрли) нужный:

type
  TForm1 = class(TForm)

[northener]

А не надо было ручками в pas-файле менять Form1 на frmCallbase. Менять имя формы надо было в инспекторе объектов. Ну а раз уж так сделал, то теперь меняй имя формы ручками еще и в dfm-файле.

[Человек_Борща]

zvygin1964, Все проще. Не надо никаких классов самому писать. Есть класс TComponentList. И есть оператор is.
Храни там определенный тип компонентов и не заморачивайся.


А с обобщенными типами данных(начиная с Delphi 2010) вообще все проще, только переменные объявить:

var
 EditsList:TObjectList<TEdit>;//Список полей ввода
 ButtonsList:TObjectList<TButton>; //Список кнопок

все эл-ы списка объектов автоматически TEdit, Tbutton

[zvygin1964]

Информация о класс TComponentList обрывочна. У меня Delphi 7. Где посмотреть на работающий пример. Google дает миллион ссылок начиная от Delphi 3.
Работающий пример ищу со времён вопроса http://www.programmersforum.ru/showt...=118353&page=5

[Arigato]

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

Это возможно если компонентов мало, а если 300 штук?

Ничего, что ТС на форуме уже два года не появлялся? Наверное, замерз в холодильнике.