Сделать обьект не кликабельным

[MyLastHit]

Можно как нибудь сделать обьект(к примеру Label) не кликабельным? Тоесть, чтобы он не перехватывал клик, если лежит поверх кликабельного обьекта?
К примеру у меня висит на Shape обработчик OnClick. Я поверх Shape ложу текст Label. Если я захочу кликнуть по Shape - я могу случаейно попасть по Label и => клик не сработает. Как сделать Label не кликабельным в таком случае?
Крайне не хочется назначать Лэйблу и Шэйпу один обработчик ОнКлик, тк в моемм случае это через чур геморно...

[Pein95]

вроде так label1.enabled:=false;

[MyLastHit]

Нет. Такой метод не подходит... Гадит весь вид...

[artemavd]

А если мемо использовать? Как-то так.

[MyLastHit]

Мемо перехватывает клик...

[MyLastHit]

Видимо никто не сталкивался с такой проблемкой...Ладно буду думать как написать общий ОнКлик...

[Johnson]

есть выход... недавно встречал на этом форуме способ сделать всю форму прозрачной для кликов. лэйбл - тоже окно, следовательно с ним можно сотворит так же.
ещё вариант - отрисовывать текст прямо на канве формы.

-----------------
Добавлено:
Форма делается прозрачной для кликов по сообщению:

  SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TRANSPARENT);

К сожалению, на сомпоненты это не распостраняется, не получилось сделать прозрачной одну только кнопку...

Вариант -

procedure TSDIAppForm.Label1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbLeft then SDIAppForm.Click;
end;