Скачать: CL | DM;

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

← →
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;) Спасибо за помощь!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.009 c