Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WM_MOVE 
:(
    Опции темы
midiar
Дата 16.1.2006, 12:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
У меня в компоненте одна из частей является наследником TGraphicControl, мне нужно отслеживать ее перемещение по экрану. Я делаю это следующим образом.
Код

  TAPlanDiagramPlotControl = class(TGraphicControl)
    private
      procedure WMMove(var Message: TWMMove); message WM_MOVE;
  ...

procedure TAPlanDiagramPlotControl.WMMove(var Message: TWMMove);
var
  pt:TPoint;
  pdc: TAPlanDiagramControl;
begin
  Inherited;
  pdc := FSlider.Owner as TAPlanDiagramControl;
  pt:=ClientToScreen(Point(Width,0));
  pdc.FForm.Left := pt.X - 40;
  pdc.FForm.Top := pt.Y+10;
end;


Но процедура WMMove не вызывается при перемещении контрола. В чем может быть дело?
PM MAIL   Вверх
Alexeis
Дата 16.1.2006, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 109
Всего: 459
TGraphicControl не является Windows окном значит и не получат сообщений от windows.

Видимо придется поменять предка на TWinControl

Это сообщение отредактировал(а) alexeis1 - 16.1.2006, 12:54


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
midiar
Дата 16.1.2006, 13:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
У наследников TWinControl тоже не вызывается.
Добавлено @ 13:03
То есть вообще вызывается, не вызывается при перетаскивании окна.
PM MAIL   Вверх
Alexeis
Дата 16.1.2006, 13:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

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

У наследников TWinControl тоже не вызывается

У формы точно работает smile

и у панели вот пример:
Код

  Tmypanel = class(Tpanel)
    procedure WMMove(var Message: TWMMove); message WM_MOVE;
  end;

var
  Form1: TForm1;
  pnl  : tmypanel;
implementation

{$R *.dfm}

procedure Tmypanel.WMMove(var Message: TWMMove);
begin
  Inherited;
  messagebox(handle,'ðàáîòàåò','',0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 pnl := Tmypanel.Create(form1);
 pnl.Parent := form1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  pnl.Top := pnl.Top + 10;
end;


Это сообщение отредактировал(а) alexeis1 - 16.1.2006, 13:21


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
midiar
Дата 16.1.2006, 17:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
А мышой когда окно двигаешь, то как ловить?
PM MAIL   Вверх
Alexeis
Дата 16.1.2006, 18:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


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

Репутация: 109
Всего: 459
А как данном случае присходит передвижение мышкой smile


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

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

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0465 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.