Определение нажития на Компонент

[Zeraim]

Здрасте, кнопочек многа и картинок, и леиблов тоже хватает, хотел бы узнать как определить произошло-ли нажатие на компонент. Пробовал при нажатии на форме: if Sender = {Button1 к примеру} ... но не сработало. Можно конечно же попробовать у каждого компонента сделать переменную булеан, а потом в каком-нибудь таймере обрабатывать... Но хотелось бы узнать есть-ли нормальные способы?

[Gladiator]

ты про что?
про свойство ONclick
или тебе надо определить нажимался ли этот компонент раньше?

[Zeraim]

Мне нужно определить на какой компонент произошло нажатие мышкой

[Gladiator]

ну одной строкой как сделать не знаю.ну эсли компонентов не много можешь обычной integer переменной в каждом из компонентов присваивоить разные значения а потом где надо определить какой нажат case -ом выбрать нужное...

[Greblin]

То есть чтоб нажатие на все компоненты обрабатывалось одной процедурой? Тогда каждому компоненту пишешь уникальное значение свойства Tag и дальше чтонибудь в таком духе

ShowMessage(IntToStr((Sender as TComponent).Tag));

[Zeraim]

Понятноть, видать всеравно придется у каждого компонента в OnClick прописывать, просто думал что можно обоитись без этого =\\

[mutabor]

Zeraim, назначь одну процедуру на клик всех компонентов, делается это так:
Компонент.OnClick:=Твоя_процедура(S ender: TObject);
Процедуру описать как метод формы.
В переменной Sender и будет объект на к-рый нажали.

[Dj_smart]

Еть вариант по проще. Я так думаю, речь идёт о создании компонентов в Run-Time?
Если да, то выход такой:

1. Создаешь новый класс, например TSuperbutton, наследником которого является Tbutton:

TSuperButton = class(TButton)
  private
    nom:integer;
  end;

отличие которого от обычного только одно: каждый буттон имеет в себе переменную.

создаем в var массив:

var but:array[1..100] of TSuperButton;

И создаем саму кнопочку (где хош, пропиши):

  inc(t);
  but[t]:=TSuperButton.Create(self);
  but[t].Parent:=self;
  but[t].OnClick:=superButtonClick;
  but[t].Left:=...
  but[t].Top:=...;
  inc(allnom); 
  but[t].nom:=allnom;

теперь в процедуре спокойно:

procedure SuperButtonClick(Sender: TObject);
begin
  for n:=1 to t do begin
    if but[n].nom= номер нашей нужной нам кнопочки then
  end;
end;

Может это и самый сложный способ, но моё дело предложить)))
ЗЫ: возмозны ошибки, ибо набирал в браузере.

[Zeraim]

Спасибо ребят, попробую оба примера.

[Andre1723]

procedure TfmMain.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
fmMain.StatusBar1.SimpleText:= (Sender As TControl).Name;
end;
А потом назначаеш эту процедуру для всех элементов в OnMouseMove