Возможно ли при помощи 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;

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

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

_ALEXey_ (21.09.04 10:47) [15]

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

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

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

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

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