Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.27;
Скачать: 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 вся ветка

Текущий архив: 2004.06.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.033 c
8-1081869661
VitGun
2004-04-13 19:21
2004.06.27
DXF. Чтение отображение.


6-1083793149
CaveDweller
2004-05-06 01:39
2004.06.27
Проблемка с TClientSocket на windows 2000


3-1085826831
nitro
2004-05-29 14:33
2004.06.27
Как скопировать все строки из компонента Listbox в Dbgrid ?


1-1086797154
td
2004-06-09 20:05
2004.06.27
про WordApplication


8-1081859461
s
2004-04-13 16:31
2004.06.27
tif-формат