Общий обработчик для нескольких объектов

[Strombald]

Добрый день/вечер/ночь, форумчане. Хотел бы попросить совета или помощи в реализации одной штуки. Пишу в Дельфи 7, у меня на форме имеется 25 объектов типа TImage и необходимо при наведении мышки выводить hint объекта, попавшего под курсор в Memo, и каждый раз при наведении курсора на Image менять содержимое этого самого Memo. По значению свойства Tag объекта Image отбирать номер массива. Не уверен что я вообще поступил сильно кошерно, когда решил так все делать, но с контейнерными классами у меня криво, никак не осилю их нормально освоить Собственно вопрос, как это сделать, кроме как писать 25 обработчиков?

[Strombald]

Up, вопрос еще в силе

[Strombald]

Up Рыжий Up

[raxp]

procedure TForm1.seti(Sender: TObject);
begin
 memo1.Lines[0]:= Application.Hint
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 application.OnHint:= seti
end;

смысл ясен?

[eoln]

procedure TForm1.Hint(Sender: TObject);
begin
  Memo1.Text := GetLongHint(Application.Hint);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnHint := Hint;
end;

Опоздал

[Strombald]

Работает, спасибо (: А вот как на счет отбора свойства Tag с элементов по наведению? Или лучше это дело как-то по-другому сделать?

[raxp]

у тоже место...

 with (sender as timage) do begin
  //tag // или выше case tag of end
 end

[Strombald]

Не работает(

If Sender.ClassType=TImage then
with (Sender as TImage) do begin
 if SArray[Tag]<>0 then SLabel.Caption:='Bla-bla-1'
 else SLabel.Caption:='Bla-bla-2';
end;

Собственно при наведении курсора на объект ничего не происходит

[raxp]

procedure TForm1.seti(Sender: TObject);
begin
 memo1.Lines[0]:= Application.Hint;
 //
 with (Sender as TImage) do begin // этим мы уже отсекаем лишнее кроме timage
  memo1.Lines[1]:= format('%d', [tag]);
  if SArray[Tag]<>0 then SLabel.Caption:= 'Bla-bla-1'
   else SLabel.Caption:= 'Bla-bla-2'
 end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 application.OnHint:= seti
end;

[Strombald]

Хм, А зачем задавать вторую строку в мемо этой функцией? В прочем ладно, и на том спасибо, это уж сам как-нибудь обмозгую (: