home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / pascal / 5271 < prev    next >
Encoding:
Internet Message Format  |  1992-09-09  |  925 b 
  1. Path: sparky!uunet!gatech!darwin.sura.net!dtix!oasys!roth
  2. From: roth@oasys.dt.navy.mil (Pete Roth)
  3. Newsgroups: comp.lang.pascal
  4. Subject: Re: Track double clicks in HandleEvent, etc.
  5. Message-ID: <24777@oasys.dt.navy.mil>
  6. Date: 9 Sep 92 17:43:39 GMT
  7. References: <SHEN.92Sep9131200@nil.IRO.UMontreal.CA>
  8. Reply-To: roth@oasys.dt.navy.mil (Pete Roth)
  9. Organization: The David Taylor Model Basin
  10. Lines: 18
  11.  
  12. In comp.lang.pascal, shen@nil.IRO.UMontreal.CA (Yu Shen) writes:
  13. [...]
  14. ]procedure TMyView.HandleEvent(var Event: TEvent);
  15. ]begin
  16. ]  TView.HandleEvent(Event);
  17. ]  case Event.What of
  18. ]  evMouse:
  19. ]   if Event.Double then SelectIt; {it is never reached!}
  20. ]  evMouseDown:
  21. [...]
  22.  
  23. make sure you enable the event. Check the documentation for
  24. 'evXXXX'... 
  25.  
  26. regards, pete
  27. - - - - - - - - - - - - - - - - - - - - - - - - - -
  28. Peter N Roth      roth@oasys.dt.navy.mil
  29. "Never argue with someone who buys ink by the barrel." - Daniel Janal.
  30.