VPF::Левая или правая кнопка мыши - Форум программистов

Sunvas

Дата 2.1.2007, 01:28 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Собственно САБЖ для любого контрола. Но это нужно отследить независимо от параметров мыши в системе (для правши/левши)/

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

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

Romikgy

Дата 2.1.2007, 01:30 (ссылка)

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

Загрузка ...

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

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

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

WM_LBUTTONDOWN
WM_LBUTTONUP
WM_RBUTTONDOWN
WM_RBUTTONUP

Добавлено @ 01:32
type TMouseEvent = procedure (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer) of object;
property OnMouseDown: TMouseEvent;
type TMouseButton = (mbLeft, mbRight, mbMiddle);
smile

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

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

Sunvas

Дата 2.1.2007, 01:36 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Romikgy @ 2.1.2007, 01:30

)

type TMouseButton = (mbLeft, mbRight, mbMiddle);

Читаем тему внимательно: нужно отследить независимо от того, какие настройки системы! Это значит что если в настройках будет стоя "для левши" то mbleft на самом деле будет правой кнопкой!

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

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

bems

Дата 2.1.2007, 01:53 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

GetAsyncKeyState

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

Обижено школьников: 8

Sunvas

Дата 2.1.2007, 02:02 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(bems @ 2.1.2007, 01:53

)

GetAsyncKeyState

Ну и как это к контролу привязать?

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

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

bems

Дата 2.1.2007, 03:40 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

хм...

Ну тогда

Цитата(Romikgy @ 2.1.2007, 01:30

)

WM_LBUTTONDOWN
WM_LBUTTONUP
WM_RBUTTONDOWN
WM_RBUTTONUP

+
GetSystemMetrics(SM_SWAPBUTTON)

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

Обижено школьников: 8

Romikgy

Дата 2.1.2007, 15:35 (ссылка)

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

Загрузка ...

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

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

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

Sunvas, система сама подменяет мессаги, и если в системе установлен левша , то уже правая кнопка мыши дает мессагу

Цитата(Romikgy @ 2.1.2007, 00:30

)

WM_LBUTTONDOWN

так что имхо не парься пиши как обычно а все сделает система smile

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

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

Sunvas

Дата 2.1.2007, 15:40 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Romikgy @ 2.1.2007, 15:35

)

Sunvas, система сама подменяет мессаги, и если в системе установлен левша , то уже правая кнопка мыши дает мессагу

Цитата(Romikgy @ 2.1.2007, 00:30 )
WM_LBUTTONDOWN

так что имхо не парься пиши как обычно а все сделает система

Это предложения "забить"?

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

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

skyboy

Дата 2.1.2007, 15:47 (ссылка)

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

Загрузка ...

неОпытный

Профиль
Группа: Модератор
Сообщений: 9820
Регистрация: 18.5.2006
Где: Днепропетровск

Репутация: 4
Всего: 260

Sunvas, а чем обусловлено такое желание усложнить жизнь левшам - можно поинтересоваться?

Sunvas

Дата 2.1.2007, 15:54 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(skyboy @ 2.1.2007, 15:47

)

Sunvas, а чем обусловлено такое желание усложнить жизнь левшам - можно поинтересоваться?

Вобщем-то я себе жизнь упрощаю + самому интересно + препод по программироваию задал написать. smile

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

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

Romikgy

Дата 2.1.2007, 16:04 (ссылка)

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

Загрузка ...

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

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

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

Цитата(Sunvas @ 2.1.2007, 14:40

)

Это предложения "забить"?

нет , я просто хотел , сказать , чтобы не обращал внимания на такие мелочи
вот создай пустую форму и него обработчик

Код


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbleft then
MessageBox(0,'Left','Left',0);
end;

и в консоли поменяй мышь на левшу и увидишь , что терь надпись стала появляться при нажатии на правую кнопку мыши , без изменения исходника smile

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

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

Sunvas

Дата 2.1.2007, 16:16 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Romikgy @ 2.1.2007, 16:04

)

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

Да, я это заметил, еще когда создавал тему.
Или я не понял смысла твоего поста или ты не можешь понять чего я хочу.

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

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

Romikgy

Дата 2.1.2007, 16:20 (ссылка)

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

Загрузка ...

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

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

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

Цитата(Sunvas @ 2.1.2007, 15:16

)

или ты не можешь понять чего я хочу.

тогда поясни в более понятных словах

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

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

Sunvas

Дата 2.1.2007, 16:41 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Цитата(Romikgy @ 2.1.2007, 16:20

)

тогда поясни в более понятных словах

На мыши есть две кнопки (их может быть и больше, но мы рассмотрим только те мыши, где их две). smile

Пользователь кликнул по какому-н контролу (не важно какому).
Нужно определить какую кнопку мыши физически нажал пользователь. Это значит, что есть форма, по ней кликают мышью. Если клик произошел от физического нажатия кнопки, которая слева то должна выскочить мессага что "левая кнопка", а если той, что справа - "правая кнопка".

При этом мышь лежит по центру стола, за компьютер садяться как левурикие так и праворукие юзеры и сразу же подстраивают мышь под себя. При использовании программы (описана выше) никто из пользователей не должен сказать "программа врет!".
Так ясно?

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

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

Romikgy

Дата 2.1.2007, 17:01 (ссылка)

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

Загрузка ...

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

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

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

А так

Код


procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var sx: Boolean;
begin
case Button of
   mbLeft: sx:=True;
   mbRight: sx:=False;
   end;
   if GetSystemMetrics(SM_SWAPBUTTON )>0 then
   sx:=not sx;
   if sx then MessageBox(0,'Left','Mouse',0)
   else   MessageBox(0,'Rigth','Mouse',0);
end;

скажи сиба
bems smile

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

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

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