VPF::Сообщение WM_RBUTTONUP не приходит окну

malor

Дата 22.6.2011, 13:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Сообщение WM_RBUTTONUP не приходит в процедуру, в отличие от WM_RBUTTONDOWN.

Код

procedure TForm1.Wndproc(var Message: TMessage);
var ...................
      ...................
begin

  case Message.Msg of
    WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MBUTTONDOWN, WM_MBUTTONUP,
    WM_RBUTTONDOWN, WM_RBUTTONUP:
    // WM_MOUSEMOVE, WM_MOUSEWHEEL
    begin
      Point.X := LoWord(Message.lParam);
      Point.Y := HiWord(Message.lParam);
      keyflags := Message.wParam;
      ......................etc ..................

end;

Почему ?

Объявление в форме:

Код

  private
    procedure WndProc(var Message : TMessage); override;

Rrader

Дата 23.6.2011, 05:13 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Возможно, сообщение глушится далее по коду (у вас не видно всего кода WndProc). Вот так работает:

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
  private
    { Private declarations }
  protected
    procedure WndProc(var Message: TMessage); override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var Message: TMessage);
const
  Cpts: array[WM_LBUTTONDOWN..WM_MBUTTONUP] of String = ('WM_LBUTTONDOWN',
    'WM_LBUTTONUP', '', 'WM_RBUTTONDOWN', 'WM_RBUTTONUP', '', 'WM_MBUTTONDOWN',
    'WM_MBUTTONUP');
var
  Point: TPoint;
begin
  case Message.Msg of
    WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MBUTTONDOWN, WM_MBUTTONUP,
    WM_RBUTTONDOWN, WM_RBUTTONUP:
    begin
      Caption := Cpts[Message.Msg];
      Point.X := LoWord(Message.lParam);
      Point.Y := HiWord(Message.lParam);
    end;
  end;
  inherited;
end;

end.

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

Let's do this quickly!
Rest in peace, Vit!

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