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

Вниз

Возможно ли при помощи TButton.perform сэмулировать зажатую...   Найти похожие ветки 

 
bloodman ©   (2004-09-20 21:48) [0]

Возможно ли при помощи TButton.perform сэмулировать зажатую кнопку мыши над TButton ( поясняю у меня есть кнопка и label , сделал так что если навести на этот лейбл указателем , то кнопка реагирует как будто указатель над ней. (CM_MOUSEENTER) Есть ли такое сообщение, ктоторое бы эмулировало нажатие по этой кнопке??)


 
Gero ©   (2004-09-20 21:53) [1]

WM_LBUTTONDOWN

Может подойдет просто сделать TButton.Click?


 
bloodman ©   (2004-09-20 21:57) [2]

Может подойдет просто сделать TButton.Click?
Нет мне нужно сэмулировать состояние (изменить внешний вид) , этот метод я естесственно вызываю.


 
bloodman ©   (2004-09-20 22:01) [3]

Не получилось Ж( если бейк поинт ставить, то  видно что она меняет форму а если нет , то не видно :(


 
Gero ©   (2004-09-20 22:05) [4]

Это ты о чем? Тихо сам с собою?


 
bloodman ©   (2004-09-20 22:06) [5]

нет эт к тебе =)  о том что не работает.


 
Gero ©   (2004-09-20 22:08) [6]

Что тебе надо?
Собщенние, "ктоторое бы эмулировало нажатие по этой кнопке"?
Я тебе его привел.
Если у тебя проблема не с сообщением, а с алгоритмом, то что без кода можно сказать?


 
bloodman ©   (2004-09-20 22:13) [7]

Кода то и нету, в label.OnMouseDown пишу Button.perform(WM_LBUTTONDOWN,0,0);
в label.onmouseup пишу
Button.perform(wm_LButtonUp,0,0);
Вот и все...


 
Gero ©   (2004-09-20 22:20) [8]

Ну тогда что не так?


 
bloodman ©   (2004-09-20 22:33) [9]

Подводишь мышкой к лейблу кнопка переходит в другое состояние(CM_MOUSEENTER) а когда кликаешь по лейблу то кнопка не реагирует...


 
Gero ©   (2004-09-20 22:35) [10]

А как она должна реагировать?


 
jack128 ©   (2004-09-20 22:40) [11]

Не-а, так нельзя..
Нажми на кнопку, а теперь, НЕ ОТПУСКАЯ ЕЁ, уведи курсор за пределы мыши. Видишь кнопка, снова стала ненажатой. А так как, при посылке твоего сообщения, курсор находится вне кнопки, то она снова "отжимается"..


 
jack128 ©   (2004-09-20 22:41) [12]

jack128 ©   (20.09.04 22:40) [11]
Нажми на кнопку, а теперь, НЕ ОТПУСКАЯ ЕЁ, уведи курсор за пределы мыши.

Читать как: Нажми на кнопку мыши, а теперь, НЕ ОТПУСКАЯ ЕЁ, уведи курсор за пределы  button"a.


 
bloodman ©   (2004-09-20 23:03) [13]

jack128 ©   (20.09.04 22:41) [12]
Понятно.Спасибо. А жаль ...


 
KSergey ©   (2004-09-21 07:16) [14]

> [13] bloodman ©   (20.09.04 23:03)
> Понятно.Спасибо. А жаль ...

А я все равно так и не понял что хотелось.
Чтолы при клике на лабел кнопка зрительно нажималась, так чтоли?


 
_ALEXey_   (2004-09-21 10:47) [15]

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
 Button1.Perform(WM_KEYDOWN, VK_SPACE,0)
end;


 
bloodman ©   (2004-09-21 19:35) [16]

KSergey ©   (21.09.04 07:16) [14]
Именно Это!

_ALEXey_   (21.09.04 10:47) [15]
Щас попробую...


 
Defunct ©   (2004-09-21 19:41) [17]

Рисуй кнопку вручную


 
bloodman ©   (2004-09-21 19:49) [18]

Не могу , она связана со многоими другими компонентами (поддержка скинов)


 
bloodman ©   (2004-09-21 19:50) [19]

_ALEXey_   (21.09.04 10:47) [15]

Спасибо!!! работает...


 
Defunct ©   (2004-09-21 19:58) [20]

> Не могу , она связана со многоими другими компонентами (поддержка скинов)

Ото именно когда речь идет о поддержке скинов, надо рисовать вручную. Плавное вжимание/отжимание можно реализовать и т.п.


 
bloodman ©   (2004-09-21 20:17) [21]

Это  понятно , времени нету , чтобы хорошую реализацию механизма скинов делать самому, а плохой механизм я не хочу , поэтому и использую компонент готовый.



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

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

Наверх




Память: 0.51 MB
Время: 0.039 c
1-1095853643
Кукушкинд
2004-09-22 15:47
2004.10.10
Фрэймы в дэльфи....


4-1094461814
Паскаль
2004-09-06 13:10
2004.10.10
button1.enabled:=sendmessage(...,em_canudo,0,0) выдает ошибку!


1-1096341882
igan
2004-09-28 07:24
2004.10.10
internal error C1376


14-1095637359
Soft
2004-09-20 03:42
2004.10.10
Универсальные компьютеры или специализированные.


14-1095861531
Pavel__
2004-09-22 17:58
2004.10.10
USB