Переопределение WndProc и получение сообщений [D6, Win95/98, WinME, Win2k, WinXP]
Dennisius © (2004-05-20 10:22:00)
Здрасти есть следующий код, который должен скрывать форму,
Дебагим, сообщение wm_KeyUp получаем, далее при выполнении
if hide_mode thenполучаем класное окошечко с
регистрами процессора, контрольные сообщения не выводятся.
А теперь уважаемые знатоки вопрос, а какого .... здесь
неправильно, должно же работать. Заранее
благодарю.
procedure TSCForm.WndProc(var Msg: TMessage);
Var
Pt :TPoint;
begin
inherited ;
if Msg.Msg = wm_KeyUp then
begin
if hide_mode then
if hide_key = Msg.WParam then
if ShellForm.Visible then ShellForm.Hide;
ShowMessage(BoolToStr(SCForm.hide_mode));
ShowMessage(IntToStr(SCForm.hide_key));
ShowMessage(BoolToStr(ShellForm.Visible));
end;
if Msg.Msg = wm_CallBackIconMessage then
begin
if Msg.LParam=wm_RButtonUp then
begin
GetCursorPos(Pt);
IconMenu.Popup(Pt.X,Pt.Y);
end;
if Msg.LParam=WM_LBUTTONDBLCLK then ShellForm.Show;
end;
end;
GLFox (2004-05-20 10:35:00) [1]
Ну и что это за код. Это то же самое, что показать глаз
собаки, и попросить сказать какого цвета у нее кончик
хвоста...
Наверх 
ЧАТ |
Орешник |
|
