home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV2N6.ZIP / WINDPROC.SRC < prev   
Encoding:
Text File  |  1991-11-11  |  437 b   |  19 lines
  1. { Listing 2:  An object-oriented window procedure }
  2.  
  3. function Window.WindowProc(Message, Wrd  : Word;
  4.                Lng: Longint) : Longint;
  5. var
  6.   Msg:       WMsg;
  7.   Handler:   pointer;
  8. begin
  9.   Msg.WParam := Wrd;
  10.   Msg.LParam := Lng;
  11.   Handler := Dynamic(TypeOf(Self), Message);
  12.   if Handler = Nil
  13.     then WindowProc := DefMessage(Message, Msg)
  14.     else begin
  15.      MsgHandler(Handler)(Msg, Self);
  16.      WindowProc := 0;
  17.      end;
  18. end;
  19.