| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Обработка сообщений формы из её компонента. [D6, WinME]
uncle © (2003-08-16 02:11:00)
О, уважаемые гуру, помогите решить мою проблему. Я делаю компонент (= class(TComponent)), одной из функций которого является определение, можно ли форму, на которой он лежит, таскать за клиентскую область. Для этого я должен обработать сообщение WM_NCHITTEST, которое поступает на форму. Так вот как мне написать обработчик этого сообщения в именно в компоненте? Проблема ещё и в том, что из компонента нельзя вызвать inherited WndProc(Message) для формы. Заранее спасибо.
Юрий Федоров (2003-08-16 02:47:00) [1]
type
TMyComponent = class(TComponent)
private
FOldOwnerWndProc: TWndMethod;
procedure NewOwnerWndMethod(var Message: TMessage);
public
constructor Create(aOwner: TComponent); override;
end;
...
constructor TMyComponent.Create(aOwner: TComponent);
begin
if not (aOwner is TCustomForm) then
raise exception.Create("Кидайте мой комппонент на форму а не фиг знает куда плиз");
inherited Create(aOwner);
FOldOwnerWndProc:=(aOwner as TCustomForm).WindowProc;
(aOwner as TCustomForm).WindowProc:=@NewOwnerWndMethod;
end;
procedure TMyComponent.NewOwnerWndMethod(var Message: TMessage);
begin
if Message.Msg = <мое сообщение > then
begin
<я делаю то, что считаю нужным с овнером как формой и с сообщением которое пришло>
end
else
FOldOwnerWndProc(Message);
end;
| |
