Клик в рантайме

← →
VDen © (2002-06-26 13:32) [0]

Как программно "нажать" пункт меню? На Menu1.Click оно не реагирует...

← →
VDen © (2002-06-26 13:35) [1]

Не пункт меню, а SpeedButton. Глючит меня что-то...

← →
Виктор Щербаков © (2002-06-26 13:36) [2]

TSpeedButton.Click

← →
VDen © (2002-06-26 13:39) [3]

2Виктор Щербаков ©(26.06.02 13:36)
Дык знаю.

Попробую объяснить точнее.
Кнопка и пункт меню создаются в рантайме. Там же присваевается обработчик. При клике по меню должна "кликнуться" кнопка. Кнопке присвоен обработчик на onMouseDown.

← →
Song © (2002-06-26 14:02) [4]

И что , не кликается?

← →
VDen © (2002-06-26 14:05) [5]

Вроде как нет...

← →
panov © (2002-06-26 14:07) [6]

>VDen © (26.06.02 14:05)
А почему с OnMouseDown должно работать?

Используй OnClick...

← →
VDen © (2002-06-26 14:13) [7]

А в onClick вроде бы не ловится какая кнопка мыши была нажата, что необходимо.

← →
panov © (2002-06-26 14:22) [8]

У меня вот так вот прекрасно работает:

procedure TfDocsOut.SpeedButton1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ShowMessage("Нажали кнопку!");
end;

А вызывается так:

SpeedButton1MouseUp(Self,mbLeft,[],0,0);

← →
VDen © (2002-06-26 14:28) [9]

У меня все создается в рантайме!
Так что SpeedButton1MouseUp(...) вызвать не могу в принципе.
Может быть ошибаюсь, но все же... На сообщение WM_MBUTTONDOWN тоже не реагирует.

← →
Skier © (2002-06-26 14:33) [10]

> VDen
Тебе нужно чтобы кнопка визуально кликалась что-ли ?

Да. Но она никак не реагирует, тварь.

> VDen
Она и не должна реагировать.
А вообще какая твоя цель ?

>Она и не должна реагировать.
Почему же?

А цель... да ладно, вроде что-то придумал...

>>Так что SpeedButton1MouseUp(...) вызвать не могу в принципе.

Это еще почему? А как Вы создаёте TSpeedButton ?

Клик в рантайме Найти похожие ветки