Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Возможно ли при помощи TButton.perform сэмулировать зажатую... [D6, Win2k]

Страницы: 1 2 >
bloodman © (2004-09-20 21:48:00)
Возможно ли при помощи TButton.perform сэмулировать зажатую кнопку мыши над TButton ( поясняю у меня есть кнопка и label , сделал так что если навести на этот лейбл указателем , то кнопка реагирует как будто указатель над ней. (CM_MOUSEENTER) Есть ли такое сообщение, ктоторое бы эмулировало нажатие по этой кнопке??)

bloodman (2004-09-21 20:17:00) [1]
Это понятно , времени нету , чтобы хорошую реализацию механизма скинов делать самому, а плохой механизм я не хочу , поэтому и использую компонент готовый.

Defunct (2004-09-21 19:58:00) [2]
> Не могу , она связана со многоими другими компонентами (поддержка скинов)

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

bloodman (2004-09-21 19:50:00) [3]
_ALEXey_ (21.09.04 10:47) [15]

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

bloodman (2004-09-21 19:49:00) [4]
Не могу , она связана со многоими другими компонентами (поддержка скинов)

Defunct (2004-09-21 19:41:00) [5]
Рисуй кнопку вручную

bloodman (2004-09-21 19:35:00) [6]
KSergey © (21.09.04 07:16) [14]
Именно Это!

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

_ALEXey_ (2004-09-21 10:47:00) [7]
procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Button1.Perform(WM_KEYDOWN, VK_SPACE,0)
end;

KSergey (2004-09-21 07:16:00) [8]
> [13] bloodman © (20.09.04 23:03)
> Понятно.Спасибо. А жаль ...

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

bloodman (2004-09-20 23:03:00) [9]
jack128 © (20.09.04 22:41) [12]
Понятно.Спасибо. А жаль ...

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

jack128 (2004-09-20 22:40:00) [11]
Не-а, так нельзя..
Нажми на кнопку, а теперь, НЕ ОТПУСКАЯ ЕЁ, уведи курсор за пределы мыши. Видишь кнопка, снова стала ненажатой. А так как, при посылке твоего сообщения, курсор находится вне кнопки, то она снова "отжимается"..

Gero (2004-09-20 22:35:00) [12]
А как она должна реагировать?

bloodman (2004-09-20 22:33:00) [13]
Подводишь мышкой к лейблу кнопка переходит в другое состояние(CM_MOUSEENTER) а когда кликаешь по лейблу то кнопка не реагирует...

Gero (2004-09-20 22:20:00) [14]
Ну тогда что не так?

bloodman (2004-09-20 22:13:00) [15]
Кода то и нету, в label.OnMouseDown пишу Button.perform(WM_LBUTTONDOWN,0,0);
в label.onmouseup пишу
Button.perform(wm_LButtonUp,0,0);
Вот и все...

Gero (2004-09-20 22:08:00) [16]
Что тебе надо?
Собщенние, "ктоторое бы эмулировало нажатие по этой кнопке"?
Я тебе его привел.
Если у тебя проблема не с сообщением, а с алгоритмом, то что без кода можно сказать?

bloodman (2004-09-20 22:06:00) [17]
нет эт к тебе =) о том что не работает.

Gero (2004-09-20 22:05:00) [18]
Это ты о чем? Тихо сам с собою?

bloodman (2004-09-20 22:01:00) [19]
Не получилось Ж( если бейк поинт ставить, то видно что она меняет форму а если нет , то не видно :(

bloodman (2004-09-20 21:57:00) [20]
Может подойдет просто сделать TButton.Click?
Нет мне нужно сэмулировать состояние (изменить внешний вид) , этот метод я естесственно вызываю.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »