---|Ветка была без названия|---

← →
Pattern (2003-06-02 21:52) [0]

Если кинуть на форму TLabel1, то по нажатию на неё обработчик события вызовет TForm1.TLabel1Click. А кто подскажет, как сделать так, что бы TLabel1 был "прозрачным" для кликов, то есть при нажати на TLabel1 срабатывал TForm1.TForm1Click, а не TForm1.TLabel1Click?

← →
Endi (2003-06-02 22:53) [1]

Предположительно можно попробывать в обработке Label1Click поставить Form1Click(Form1);
Есть, конечно, вариант с изменением обработки нажатия кнопки мыши в определенном прямоугольнике, ограниченном Label1, с направлением на обработку процедурой Form1Click, но вряд ли этой самый простой путь.

← →
Pattern (2003-06-03 21:46) [2]

2Endi ->
Да! Этот момент прокатил. Но на самом деле мне это нужно было для создании компоненты. Просто у меня TImage перекрывала собой полностью всё поле родителя TCustomPanel. Воспользовавшись твоим советом, я перехватил событие OnClick, которое возникает на TImage и перенаправил его на родителя.
type TFxPicView = class(TCustomPanel) private ... function GetOnPicClick_: TNotifyEvent; procedure SetOnPicClick_(Value: TNotifyEvent); ... published ... property OnClick: TNotifyEvent read GetOnPicClick_ write SetOnPicClick_; ... function TFxPicView.GetOnPicClick_: TNotifyEvent; begin Result := FxImage.OnClick; end; procedure TFxPicView.SetOnPicClick_(Value: TNotifyEvent); begin FxImage.OnClick := Value; end;
хе-хе!!! d;) Спасибо за помощь!

---|Ветка была без названия|--- Найти похожие ветки