Параметры для TMessage

← →
Ptr (2003-10-11 14:00) [0]

Уважаемые мастера! Помогите pls найти ошибку в 10 строчках...

Есть код:
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
procedure XXXGraphic.WndProc(var Message: TMessage);
begin
case Message.Msg of
WM_LBUTTONDOWN, WM_RBUTTONDOWN:
if not (csDesigning in ComponentState) then
begin
if (TWMMouse(Message).XPos in [10 .. Width-20]) and
(TWMMouse(Message).YPos in [10 .. Height-20]) then
begin
// Message.LParamLo := Message.LParamLo + Word(Left);
// Message.LParamHi := Message.LParamHi + Word(Top);
Parent.Perform(Message.Msg, Message.WParam,
Message.LParam);
exit;
end;
end;
end;
inherited WndProc(Message);
end;
//::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Проблема в том, что при закоментированных строчках обработчик события Parent.MouseDown(...) срабатывает, но естественно получает искаженные параметры курсора;
Если я разкоментирую строки с изменением координат, то происходит переполнение буфера (т.е. бесконечный цикл).
Может Есть ЗНАТОКИ В ЧЕМ ТУТ ДЕЛО ???
Заранее спасибо...

← →
Ptr (2003-10-11 14:14) [1]

ААААААААА УУУУУУУУУУУ

← →
Ptr (2003-10-13 11:26) [2]

Прошу помощи еще раз

Параметры для TMessage Найти похожие ветки