![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#2
|
|||
|
|||
![]() Однако, можно также отдать Handle вашего окна, что исключит путаницу в случае нахождения в
системе двух окон с одинаковыми классами. Код:
SendMessage(CheckerHandle, WM_USER, 100, Handle); Для основного окна программы Handle := Application.MainForm.Handle Для посылки команды для RADIO Checker PRO используется функция SendMessage(CheckerHandle, WM_USER, Cmd, Param); Для обработки обратных сообщений программы нужно добавить функцию - обработчик сообщений WM_USER. При нахождение одного из образцов RADIO Checker Pro сообщит об этом Вашей программе с кодом. Код:
wParam = 2000, lParam = Номер образца в базе -1 procedure CheckerMessage (var Msg: TMessage); message WM_USER; ... procedure TCheckerHandler.CheckerMessage (var Msg: TMessage); begin case a.wParam of 2000: SampleIndex := Msg.lParam + 1; end; end; Спасибо. Последний раз редактировалось Admin, 23.11.2009 в 13:46. |