VPF::WM_MOUSEMOVE WM_LBUTTONDOWN - Форум программистов

Ragli

Дата 7.4.2007, 17:50 (ссылка)

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

Загрузка ...

Шустрый

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

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

Здравствуйте
Не подскажете как связать движение мышки и нажатие на левую кнопку мыши?
Т.е. мне нужно чтоб после нажатия левой нопки мыши считывалась координата движения мышки и при отпускании левой кнопки останавливалось чтение координат курсора.
Пожалуйста помогите,очень нужно

Вот так вот я делаю

Код


.......................
//Нажата левая клавиша мыши во внутренней области окна
    procedure MesDblClick1 (var MyMessage:TWMMouse);
    message WM_LBUTTONDOWN;
........................
 mas:word;
.........................
procedure TGlav.MesDblClick1 (var MyMessage:TWMMouse);
var
   Sender: TObject;
begin
   x_lin_start:=(MyMessage.XPos*2)/Glav.ClientWidth-1;
   y_lin_start:=1-(MyMessage.YPos*2)/Glav.ClientHeight;
  
   if  mas=WM_MOUSEMOVE then
      FormPaint(Sender);

end;

Это сообщение отредактировал(а) Alexeis - 7.4.2007, 21:58

ctulhu

Дата 7.4.2007, 19:40 (ссылка)

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

Загрузка ...

Новичок

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

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

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

во вторых

1) когда у тебя нажалась левая кнопка мыши т.е.
в обработчике WM_LBUTTONDOWN или {Form}.MouseDown регистриуешь нажатие кнопки в
какую нибудь булевую переменную (True).

2) когда у тебя кнопка мыши отпустилась т.е.
в обработчике WM_LBUTTONUP или {Form}.MouseUp регистриуешь обратное значение (False).

3) в обработчике WM_MOUSEMOVE или {Form}.MouseMove
поступаешь так как тебе нужно в зависимсти от индикаторной булевой переменной.

StranikS

Дата 7.4.2007, 21:52 (ссылка)

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

Загрузка ...

Новичок

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

Репутация: нет
Всего: 2

Если я правильно понял, то тебе нужно вот ето:

Код


var
  Form1: TForm1;
  LBDFlag:Boolean;{Флаг зажатой левой кнопки мыши}

implementation

{$R *.dfm}

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//Берем координаты курсора
if LBDFlag=true then form1.Caption:='X='+IntToStr(X)+', Y='+IntToStr(Y);
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then LBDFlag:=true;
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if LBDFlag=true then LBDFlag:=not(LBDFlag);
end;

Alexeis

Дата 7.4.2007, 21:54 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

Модератор: не создавайте дубликатов тем

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

ctulhu

Дата 9.4.2007, 19:33 (ссылка)

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

Загрузка ...

Новичок

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

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

StranikS: привёл абсолютно верный код

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