Скачать: CL | DM;

Переопределение WndProc и получение сообщений   Найти похожие ветки 

← →
Dennisius   (2004-05-20 10:22) [0]

Здрасти есть следующий код, который должен скрывать форму,
Дебагим, сообщение 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) [1]

Ну и что это за код. Это то же самое, что показать глаз собаки, и попросить сказать какого цвета у нее кончик хвоста...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c