ONLabelClick

[SunKnight]

Подскажите пожалуйста, как мне задать команды для выполнения процедуры ONLabelClick при нажатии на кнопку, т.е. мне нужно преопределить все команды для процедуры ONLabelClick в процедуре нажатия кнопки?

[_Dmitry]

Ну, так назначте в инспекторе объектов одну процедуру для события OnClick кнопки и Label, проанализировать что нажато можно через Sender
if Sender=Label1 then ...
if Sender=Button1 then ...

[mihali4]

Странно как то...
Давайте начнем с самого начала:
1. Двойной клик по Label
2. Открывается автоматически созданный "бокс" для этого события
3. Туда пишем ваш собственный обработчик... Ничего "переопределять" не нужно - там пусто...

[SunKnight]

Забыл написать, лабел создается у меня динамически, при нажатии на кнопку. Вот при нажатии кнопки я еще хочу определить параметры для нажатия на этот лабел.

[_Dmitry]

TForm1 = class(TForm)
...
public
  procedure MyProcedure(Sender: TObject);
end;

procedure TForm1.MyProcedure(Sender: TObject);
begin
  .....
end;

.....
Label1.OnClick:=MyProcedure;

[mihali4]

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

Забыл написать, лабел создается у меня динамически, при нажатии на кнопку. Вот при нажатии кнопки я еще хочу определить параметры для нажатия на этот лабел.

Уже описывал где-то. Повторюсь в последний раз.
Самое простое:
Кидаем на форму лэйбл и описываем его обработчик. Уничтожаем этот лэйбл - обработчик остался. Создаем динамически любое количество лэйблов и назначаем им уже существующий и описанный обработчик...