Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2008.11.02;
Скачать: CL | DM;

Вниз

Изменение события OnClick у TButton   Найти похожие ветки 

 
mix   (2008-01-24 11:36) [0]

Как изменить событие OnClick у TButton, чтобы оно приходило пока кнопка нажата (как у компонента TUpDown)?


 
KilkennyCat ©   (2008-01-24 11:38) [1]

никак. обрабатывайте другое событие.


 
{RASkov} ©   (2008-01-24 11:45) [2]

> [0] mix   (24.01.08 11:36)

Не все так просто.... Именно у TButton ответ см в [1].
Другие пути:
Наследник от TButton"а с внедренным Таймером
или простой способ: Использовать два стандартных компонента, например TButton и TTimer.
Не совсем красиво, но ...На МаусДовн кнопки включаем Таймер, а на МаусАп выключаем...


 
KilkennyCat ©   (2008-01-24 11:56) [3]

Таймер-то зачем???


 
{RASkov} ©   (2008-01-24 12:03) [4]

> [3] KilkennyCat ©   (24.01.08 11:56)

Как зачем????
Ему же нужно нажать мышой кнопку(TButton) и неотпуская ее генерить событие OnClick....


 
mix   (2008-01-24 12:05) [5]

Все так. С таймером понял.
С событием ничего нельзя придумать?


 
clickmaker ©   (2008-01-24 13:02) [6]


> С событием ничего нельзя придумать?

OnClick
while SendMessage(Button1.Handle, BM_GETSTATE, 0, 0) = BST_PUSHED do
begin
   ...
   Application.ProcessMessages;
end;


 
mix   (2008-01-28 09:25) [7]

Сделал - работает. Спасибо за ответы!
Но.. Есть одна загвостка..))) Если по кнопке вылетает какое нить окно, допустим с ошибкой, то OnClick благополучно уходит в бесконечный цикл.. Можно конечно поставить try except (обязательно поставлю), но все равно неприятно.
Есть ли решение этой проблемы??

P.S. Попробовал проделать тоже самое с TUpDown, получается какой то бред... Кнопка отжимается во время отображения месседжа, но после этого кликая мышкой в любую область формы происходит событие OnClick TUpDown и приложение закрыть невозможно.


 
ketmar ©   (2008-01-28 09:33) [8]

проверяй, у кого фокус. если фокус потеряли — всё, концерт окончен.



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

Текущий архив: 2008.11.02;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.021 c
2-1222065054
Sten
2008-09-22 10:30
2008.11.02
Поиск


15-1220979515
AlexDan
2008-09-09 20:58
2008.11.02
SOS?..


2-1221909236
MZG
2008-09-20 15:13
2008.11.02
Как добавить записи поля из базы?


15-1221024724
Vlad Oshin
2008-09-10 09:32
2008.11.02
BDS2006, палитра компонент, как упорядочить внутри вкладки по афл


2-1222234434
Neket
2008-09-24 09:33
2008.11.02
Проверка на ввод нечисловых символов и запятой.