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

Lonley

Дата 22.11.2003, 23:56 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 597
Регистрация: 7.10.2003
Где: северные ворота М урманск

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

'Привет!!'
-=-=-=-=
Маленький вопрос насчет обработки событий
Вот как обработать событие поступающее в окно класса TFORM
понятно
-=-=-=-
но вот если оно находится на форме
например на форме находтся DBGRIG я точно знаю что
к нему поступает событие
WM_CAPTURECHANGED
но ПОЙМАТЬ ЕГО не могу
не подскажете как это получить...
=--=-=-=-=-=-=-=-

Код


procedure TForm2_har_opr.WMCAPTURECHANGED(var MSG : TMessage);
begin
case msg.Msg of

 WM_CAPTURECHANGED : begin

     ShowMessage('In DBGrid');       {Почему не работает понятно...}
                     end;

 WM_LBUTTONUP : begin
                  ShowMessage('Press Left Mouse Button');
                end;
end;

Код


type
    TForm2_har_opr = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
 .........
    bb_Write_Data: TBitBtn;
    Button1: TButton;
 ........
      procedure WMCAPTURECHANGED(var MSG : TMessage); message WM_CAPTURECHANGED;

   {но как и где правильно описать процедуру}
 ........
  private

  public
  end;

Это сообщение отредактировал(а) Lonley - 23.11.2003, 00:01

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

Земную жизнь пройдя до половины,
Я очутился в сумрачном лесу,
Утратив правый путь во тьме долины.
Каков он был, о, как произнесу,
Тот дикий лес, дремучий и грозящий,

p0s0l

Дата 23.11.2003, 14:00 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Надо подменить функцию обработки сообщений окна DBGrid'а. Это лучше сделать на событии OnCreate формы:

Код

var
  OldWndProc : pointer;

function NewWndProc (wnd : HWND; uMsg : cardinal; WP : WPARAM; LP : LPARAM) : LRESULT; stdcall;
begin
  if uMsg = WM_LBUTTONUP then MessageBeep(MB_ICONASTERISK);
  Result := CallWindowProc (OldWndProc, wnd, uMsg, WP, LP);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWndProc := Pointer(SetWindowLong(dg1.Handle, GWL_WNDPROC, Cardinal(@NewWndProc)));
end;

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

С уважением, г-н Посол.

Cashey

Дата 23.11.2003, 14:05 (ссылка)

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

Загрузка ...

Бессмертный

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

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

... или отредактировать исходный модуль

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

библия учит любить ближнего, а камасутра обучает как именно

Lonley

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

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

Загрузка ...

Опытный

-=-=-=
СПАСИБО
-=-=-
ПОПРОБУЮ
-=-=-=-=

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

Akella

Дата 26.11.2003, 10:48 (ссылка)

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

Загрузка ...

Творец

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

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

Цитата

...или отредактировать исходный модуль

Я думаю, что это не поможет, т.к. нужно его (исходный модуль) потом перекомпилировать

Cashey

Дата 26.11.2003, 11:22 (ссылка)

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

Загрузка ...

Бессмертный

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

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

Цитата

QUOTE
...или отредактировать исходный модуль

Я думаю, что это не поможет, т.к. нужно его (исходный модуль) потом перекомпилировать

Да? А как же я тогда перелопатил под себя этот самый исходный модуль?

Это сообщение отредактировал(а) Cashey - 26.11.2003, 11:24

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

библия учит любить ближнего, а камасутра обучает как именно

Akella

Дата 26.11.2003, 14:26 (ссылка)

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

Загрузка ...

Творец

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

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

Получается, что при компилировании проекта компилируются каждый раз заново все компоненты?

p0s0l

Дата 26.11.2003, 14:34 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Цитата

Я думаю, что это не поможет, т.к. нужно его (исходный модуль) потом перекомпилировать

А что трудно перекомпилировать ? Да и после редактирования он потом при компиляции проги тоже автоматически перекомпилируется...
Хотя мне кажется это лишним и некрасивым менять исходники...

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

С уважением, г-н Посол.

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