VPF::Как обработать сообщение? - Форум программистов

Fighter

Дата 1.4.2007, 21:06 (ссылка)

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

Загрузка ...

Опытный

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

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

Мне нужно обработать 2 сообщения Image, которые по умолчанию не предусмотрены. Это Wm_MouseLeave и Wm_MouseEnter.
Я формирую кнопку из 3 картинок.

ama_kid

Дата 2.4.2007, 06:39 (ссылка)

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

Загрузка ...

АСУТП-кодер

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

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

WM_MOUSEENTER - нет такого сообщения в системе. Есть WM_MOUSEHOVER...
смотреть в сторонe TrackMouseEvent
Пример использования я выкладывал тут

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

самурай без меча подобен самураю с мечом, но только без меча

Snowy

Дата 2.4.2007, 10:57 (ссылка)

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

Загрузка ...

Эксперт

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

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

FAQ: http://forum.vingrad.ru/base/Kak-dobavit-s...eLeave-286.html

ivan219

Дата 5.4.2007, 19:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

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

Может ему это надо?

Код


unit MyImage;

interface

uses
  Messages, SysUtils, Classes, Controls, ExtCtrls;

type
  TMyImage = class(TImage)
  private
    FOnMouseLeave: TNotifyEvent;
    FOnMouseEnter: TNotifyEvent;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Align;
    property Anchors;
    property AutoSize;
    property Center;
    property Constraints;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property IncrementalDisplay;
    property ParentShowHint;
    property Picture;
    property PopupMenu;
    property Proportional;
    property ShowHint;
    property Stretch;
    property Transparent;
    property Visible;
    property OnClick;
    property OnContextPopup;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDock;
    property OnEndDrag;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;   
    property OnProgress;
    property OnStartDock;
    property OnStartDrag;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComponent', [TMyImage]);
end;

constructor TMyImage.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
end;

procedure TMyImage.CMMouseEnter(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;

procedure TMyImage.CMMouseLeave(var Message: TMessage);
begin
  inherited;
  if Assigned(FOnMouseLeave) then
    FOnMouseLeave(Self);
end;
end.

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

Мой первый сайт и моя первая программа!!!!!

Fighter

Дата 6.4.2007, 00:33 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(ivan219 @ 5.4.2007, 19:22

)

Может ему это надо?

Я попробую, но я думаю, что именно это мне и надо.

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