home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / windows / owl / tmessage.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-05-22  |  3.1 KB  |  106 lines
  1. PROGRAM WhatsInTMessage;
  2.  
  3. USES WObjects, WinTypes, WinProcs, Strings;
  4.  
  5. TYPE
  6.   PMyWindow = ^TMyWindow;
  7.   TMyWindow = OBJECT (TWindow)
  8.     PROCEDURE WMLButtonDown (VAR Msg: TMessage); VIRTUAL wm_First + wm_LButtonDown;
  9.     PROCEDURE WMNCRButtonDown (VAR Msg: TMessage); VIRTUAL wm_First + wm_NCrButtonDown;
  10.   END;
  11.  
  12.   TMyApplication = OBJECT (TApplication)
  13.     PROCEDURE InitMainWindow; VIRTUAL;
  14.   END;
  15.  
  16. PROCEDURE TMyWindow.WMLButtonDown (VAR Msg: TMessage);
  17. VAR
  18.   MyHDC: HDC;
  19.   PasString: String[20];
  20.   APChar: ARRAY [0..19] OF CHAR;
  21. BEGIN
  22.   MyHDC := GetDC (HWindow);
  23.   TextOut (MyHDC, 10, 10, 'Receiver : ', 11);
  24.   Str (Msg.Receiver, PasString);
  25.   StrPCopy (APChar, PasString);
  26.   TextOut (MyHDC, 100, 10, APChar, StrLen(APChar));
  27.  
  28.   TextOut (MyHDC, 10, 30, 'Message  :            ',21);
  29.   Str (Msg.Message, PasString);
  30.   StrPCopy (APChar, PasString);
  31.   TextOut (MyHDC, 100, 30, APChar, StrLen(APChar));
  32.  
  33.   TextOut (MyHDC, 10, 50, 'wParam   :           ', 21);
  34.   Str (Msg.wParam, PasString);
  35.   StrPCopy (APChar, PasString);
  36.   TextOut (MyHDC, 100, 50, APChar, StrLen(APChar));
  37.  
  38.   TextOut (MyHDC, 10, 70, 'lParamLo :           ', 21);
  39.   Str (Msg.lParamLo, PasString);
  40.   StrPCopy (APChar, PasString);
  41.   TextOut (MyHDC, 100, 70, APChar, StrLen(APChar));
  42.  
  43.   TextOut (MyHDC, 10, 90, 'lParamHi :           ', 21);
  44.   Str (Msg.lParamHi, PasString);
  45.   StrPCopy (APChar, PasString);
  46.   TextOut (MyHDC, 100, 90, APChar, StrLen(APChar));
  47.  
  48.   TextOut (MyHDC, 10, 110, 'Result   :           ', 21);
  49.   Str (Msg.Result, PasString);
  50.   StrPCopy (APChar, PasString);
  51.   TextOut (MyHDC, 100, 110, APChar, StrLen(APChar));
  52.   ReleaseDC (HWindow, MyHDC);
  53. END;
  54.  
  55. PROCEDURE TMyWindow.WMNCRButtonDown (VAR Msg: TMessage);
  56. VAR
  57.   MyHDC: HDC;
  58.   PasString: String[20];
  59.   APChar: ARRAY [0..19] OF CHAR;
  60. BEGIN
  61.   MyHDC := GetDC (HWindow);
  62.   TextOut (MyHDC, 10, 10, 'Receiver : ', 11);
  63.   Str (Msg.Receiver, PasString);
  64.   StrPCopy (APChar, PasString);
  65.   TextOut (MyHDC, 100, 10, APChar, StrLen(APChar));
  66.  
  67.   TextOut (MyHDC, 10, 30, 'Message  :           ',21);
  68.   Str (Msg.Message, PasString);
  69.   StrPCopy (APChar, PasString);
  70.   TextOut (MyHDC, 100, 30, APChar, StrLen(APChar));
  71.  
  72.   TextOut (MyHDC, 10, 50, 'wParam   :           ', 21);
  73.   Str (Msg.wParam, PasString);
  74.   StrPCopy (APChar, PasString);
  75.   TextOut (MyHDC, 100, 50, APChar, StrLen(APChar));
  76.  
  77.   TextOut (MyHDC, 10, 70, 'lParamLo :           ', 21);
  78.   Str (Msg.lParamLo, PasString);
  79.   StrPCopy (APChar, PasString);
  80.   TextOut (MyHDC, 100, 70, APChar, StrLen(APChar));
  81.  
  82.   TextOut (MyHDC, 10, 90, 'lParamHi :           ', 21);
  83.   Str (Msg.lParamHi, PasString);
  84.   StrPCopy (APChar, PasString);
  85.   TextOut (MyHDC, 100, 90, APChar, StrLen(APChar));
  86.  
  87.   TextOut (MyHDC, 10, 110, 'Result   :           ', 21);
  88.   Str (Msg.Result, PasString);
  89.   StrPCopy (APChar, PasString);
  90.   TextOut (MyHDC, 100, 110, APChar, StrLen(APChar));
  91.   ReleaseDC (HWindow, MyHDC);
  92. END;
  93.  
  94. PROCEDURE TMyApplication.InitMainWindow;
  95. BEGIn
  96.   MainWindow := New (PMyWindow, Init(NIL, 'Was enthΣlt das Record TMessage'));
  97. END;
  98.  
  99. VAR
  100.   GenericApp: TMyApplication;
  101.  
  102. BEGIN
  103.   GenericApp.Init ('WhatsInTMessage');
  104.   GenericApp.Run;
  105.   GenericApp.Done;
  106. END.