Return-Path: <pbruno@scanpak.com>
Delivered-To: efg2.com%efg2@efg2.com
...
From: "Philippe Bruno" <pbruno@scanpak.com>
To: "Earl F. Glynn" <efg2@efg2.com>
Subject: RE: Computer Lab Feedback
Date: Mon, 23 Jul 2001 15:09:53 -0400
...
Content-Transfer-Encoding: 7bit

Earl,

Thanks for your reply. The API call SetCursor alone was not sufficient to
solve my problem but certainly helped me. So, since you were kind enough at
the first place, let me now share with you what I found (feel free to use
this as you wish):

var
  PreviousCursor: HCursor;

begin
  PreviousCursor := SetCursor(LoadCursor(0, IDC_WAIT));
  SetSystemCursor(GetCursor, OCR_NORMAL);
  try
    { Lengthy process }
  finally
    SetSystemCursor(PreviousCursor, OCR_NORMAL);
  end;
end;

Sincerely,

Philippe Bruno, B.Eng.
Director of Research and Development
Scanpak Inc. - www.scanpak.com
(514) 685-3505 x 232

====================================================================

I have a tray application that at one point has some lengthy
process. I tried changing the cursor to the hourglass but
because I don't have a visible main form, it seems that it
doesn't work. Would you know of a way to change the cursor
in that case?

Thanks in advance.

Philippe Bruno, B.Eng.
Director of Research and Development
Scanpak Inc. - www.scanpak.com
(514) 685-3505 x 232