VPF::Как отличить клик - Форум программистов

Sunvas

Дата 18.3.2006, 19:42 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Как сделать чтобы действие Onclick выполнялось только, если кнопку кликает мышь, а не клавиатура (мы можем кликнуть по кнопке мишью или нажать на клавиатуре проблел или энтер)? smile

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Guedda

Дата 18.3.2006, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Юзай WM_LBUTTONCLK

Это сообщение отредактировал(а) Guedda - 18.3.2006, 19:47

--------------------

Ll 2

Snowy

Дата 20.3.2006, 10:53 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetKeyState(VK_LBUTTON) > 0 then
    ShowMessage('Тыкнули мышей');
end;

Sunvas

Дата 21.3.2006, 08:30 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Snowy, если я один раз кликкну по кнопке мышкой, то потом работает и пробел (до тех пор, пока я еще раз не кликну где-нибудь мышкой). Нехорошо...

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Romikgy

Дата 21.3.2006, 09:30 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146

Sunvas, дык убери обработку из

Цитата(Snowy @ 20.3.2006, 09:53

)

Button1Click

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Snowy

Дата 21.3.2006, 09:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Хм. Интересный эффект.
Тогда чуть поправим:

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetAsyncKeyState(VK_LBUTTON) > 0 then
    ShowMessage('Тыкнули мышей');
end;

Sunvas

Дата 23.3.2006, 08:44 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Все-равно есть глюк:
Кликаем мышкой - показывается сообщение. Кликаем по этому сообщению мышкой и нажимаем пробел. Как ни странно кнопка-то срабатывает.
И снова по сообщению кликаем мышкой, нажимаем на кнопке пробел...
Снова нехорошо...

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 23.3.2006, 09:03 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Sunvas @ 18.3.2006, 19:42

)

Как сделать чтобы действие Onclick выполнялось только, если кнопку кликает мышь, а не клавиатура

В таком случае обрабатывай события в OnMouseUp, а не в OnClick.

--------------------

*щёлк*

Snowy

Дата 23.3.2006, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Yanis, логично. Так пожалуй проще.

Код

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbLeft  then
    ShowMessage('Тыкнули мышей');
end;

Sunvas

Дата 24.3.2006, 08:22 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Ну спасибо, Yanis, за намек, а то вот мы все копали не в ту сторону!

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Snowy

Дата 24.3.2006, 09:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Вариант с GetKey тоже рабочий.
Если не показывать ShowMessage...

Sunvas

Дата 25.3.2006, 08:43 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Snowy @ 24.3.2006, 09:15

)

Вариант с GetKey тоже рабочий.
Если не показывать ShowMessage...

Нужно, чтобы работало всегда и везде. (программистская мудрость)

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Sunvas

Дата 31.3.2006, 00:10 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

А как реализовать чтобы кнопка реагировала только на нажатие миши?

Это сообщение отредактировал(а) Sunvas - 31.3.2006, 00:39

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Yanis

Дата 31.3.2006, 00:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

Цитата(Sunvas @ 31.3.2006, 00:10

)

А как сделать чтобы форма реагировала только на клик клавиатуры?

Это как?

Сначала только мышкой хотел, а теперь только клавиатурой... Ты определись smile

Если нужно только клавиатурой, то просто пиши всё, что хочешь сделать не в OnClick, а в OnKeyUp. Либо пользуйся флажками. Лишняя переменная это не смертельно.

--------------------

*щёлк*

Sunvas

Дата 31.3.2006, 00:41 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Цитата(Yanis @ 31.3.2006, 00:20

)

Если нужно только клавиатурой, то просто пиши всё, что хочешь сделать не в OnClick, а в OnKeyUp.

ОК. Понял..

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »