home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / windows / pascal / turbpa / entered.in_ / entered.in
Encoding:
Text File  |  1993-03-07  |  1.0 KB  |  24 lines

  1. {*************************************************************************}
  2. {*                                                                       *}
  3. {* Dialog Engine 1.5                                                     *}
  4. {*                                                                       *}
  5. {* File    : EnterEd.Inc                                                 *}
  6. {* Version : 10.10.1992                                                  *}
  7. {*                                                                       *}
  8. {* Copyright (c) 1992 by Uwe Janiak, Berlin                              *}
  9. {*                                                                       *}
  10. {*************************************************************************}
  11.  
  12.  
  13. procedure TenterEdit.wmchar(var msg:tmessage);
  14.   var von,bis:integer;
  15.   begin
  16.     If msg.wparam=vk_return then
  17.       begin
  18.         getselection(von,bis);
  19.         setselection(bis,bis);
  20.         insert(#13#10);
  21.       end else
  22.     defwndproc(msg);
  23.   end;
  24.