home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / NEWS / 554 / JUILLET / SETMOUSE.PAS < prev    next >
Pascal/Delphi Source File  |  1993-10-07  |  876b  |  26 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 469 of 478                                                               
  3. From : Kelly Small                         1:114/36.0           13 Jul 93  09:30 
  4. To   : James Park                                                                
  5. Subj : The Mouse                                                              
  6. ────────────────────────────────────────────────────────────────────────────────
  7.  JP> Hi,
  8.  JP>
  9.  JP> Can anyone help me create a procedure that I can call and set the cursor t
  10.  JP> certain character.
  11.  JP>
  12.  JP> ie. SetMouseCursor(ord('?'));}
  13.  
  14. Procedure SetMousecursor(Ctype:Byte);
  15. Var Regs : Registers;
  16.   Begin
  17.   With Regs Do
  18.     Begin
  19.     ax := 10;
  20.     bx := 0;
  21.     cx := $FF00;
  22.     dh := $08;
  23.     dl := Ctype;
  24.     Intr($33,Regs);
  25.     End;
  26.   End;