Опережающее событие OnClick

← →
kat (2004-06-08 01:38) [0]

Создал свой компонент, но не знаю как сделать, чтобы при нажатии на компонент возникало событие, до события onClick
P.S.: Сообщения типа "создай обработчик onClick" просьба не оставлять!

← →
KilkennyCat © (2004-06-08 01:45) [1]

гм... онМаузДаун анд онКейДаун

← →
Mim1 © (2004-06-08 01:45) [2]

> P.S.: Сообщения типа "создай обработчик onClick" просьба
> не оставлять!

Несколько грубовато, вы не находите?

У tcontrol"а событие onclick является protected свойством, чтобы оно отобразилось ву инспекторе обьектоы необходимо повысить его видимость до published.

← →
Mim1 © (2004-06-08 01:47) [3]

> [1] KilkennyCat © (08.06.04 01:45)
> ... онКейДаун

OnDownKeyClick

← →
YuRock © (2004-06-08 01:48) [4]

Вообще не понятно, что за компонент, но думаю, что перехват WM_LBUTTONUP, а так же WM_KEYUP (соответственно - левая кнопка, пробел и ввод) должны помочь...

P.S. "создай обработчик onClick" - это так и называется. Или ты другое определение (название) подобного рода событиям придумал? Авторство не за тобой, так что не умничай.

← →
KilkennyCat © (2004-06-08 01:48) [5]

> Mim1 © (08.06.04 01:45) [2]

Зачем так сложно... Клик - это ведь вроде целый комплекс действий, Down и Up. Значит, событие Down произойдет первее...
а насчет грубости - посмотрите емелю Kat :) что можно ожидать от 666 ?

← →
KilkennyCat © (2004-06-08 01:49) [6]

> Mim1 © (08.06.04 01:47) [3]

:) Главное - смысл! :))

← →
Mim1 © (2004-06-08 01:51) [7]

[5] KilkennyCat © (08.06.04 01:48)

Повысить видимость свойства для вас сложно? :)

← →
KilkennyCat © (2004-06-08 01:54) [8]

> Mim1 © (08.06.04 01:51) [7]

:) мне сложно даже раскладку сменить :)) а в данном случае, тоже непонравилась некоторая грубость.

← →
Mim1 © (2004-06-08 01:56) [9]

[8] KilkennyCat © (08.06.04 01:54)

> тоже непонравилась некоторая грубость

Дуэль? Выбирайте оружие скдарь :)

← →
Petr V. Abramov © (2004-06-08 02:42) [10]

procedure TKat666Control.Click; override;
begin
if Assigned(FBeforeOnClick) then
FBeforeOnClick(Self);
inherited
end;

P.S.
создай обработчик onClick и посмотри Call Stack в debugger`е
гы

← →
Mim1 © (2004-06-08 02:44) [11]

Type
TMimClickebleControl = class(TControl) published Property OnClick; end;
И все!

← →
KilkennyCat © (2004-06-08 03:29) [12]

> Mim1 © (08.06.04 01:56) [9]

гм... я имел ввиду не Вашу грубость, т.е у Вас ее вообще не было... вообщем, совсем меня запутали! Драться будем! Оружие - мешки с цементом. :-0

← →
KSergey © (2004-06-08 07:12) [13]

Народ, вы че чушь мелите, ...?! В вопросе - "создал компонент".
При чем тут назначить обработчик On...??!!
Хоть один умный человек нашелся. См.

> [10] Petr V. Abramov © (08.06.04 02:42)

← →
piople © (2004-06-08 07:16) [14]

В чЁм проблема-то????????
Переопределил родительский метод OnClick и все)

[14] piople © (08.06.04 07:16)
> В чЁм проблема-то????????
> Переопределил родительский метод OnClick и все)

Б....., ткните мне пальчиком в родительский метод "OnClick" - и я принесу извинения.

[15] KSergey © (08.06.04 07:25)

Вроде бы первый компонент по которому можно кликнуть в иерархии vcl это tcontrol, все остальные мы как то исторически зовем невизуальными, и по ним не покликаеш. А у tcontrol есть событие onclick.

> [16] Mim1 © (08.06.04 08:16)

Э, с терминами поаккуратнее, ладно? Событие OnClick - безусловно есть. Метода - НЕТ!

И никакой дурак, простите, события в комопнентах не перекрывает.

[17] KSergey © (08.06.04 08:35)

Если вы меня, дураком назвали, то неизвеняю. Я про метод никогда не говорил. Тем не менее если жизнено необходимо что нибудь перекрыть то есть метод click. Вообще наличие знаний не повод вести себя так грубо.
В эту ветку больше на захожу (потому как считаю что ответ на вопрос получен).

← →
ancara (2004-06-08 10:32) [19]

> KSergey © (08.06.04 08:35) [17]

> Событие OnClick - безусловно есть. Метода - НЕТ!

Прошу прощения, что вмешиваюсь, но уменя такой вопрос:
что значит "Метода нет"? У меня в модуле Controls.pas в описании класса TControl раздел protected написано:

procedure Click; dynamic;
и ниже его реализация

а потом класс TButton перекрывает этот метод, выводит в раздел public и дополняет... так вот я что-то ничего не пойму что вы имеете ввиду?

> [19] ancara (08.06.04 10:32)
> не пойму что вы имеете ввиду?

Право же странно... что ж тут не понятного... Click <> OnClick - вот что я имею в виду. Не более.

Опережающее событие OnClick Найти похожие ветки