home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pctchnqs / 1991 / number6 / windproc.src < prev   
Text File  |  1991-11-11  |  437b  |  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.