Mauscursor im Programm ändern (auf HourGlass o.ä.)

[Sascha Ballach]

Hallo

Mein Programm braucht zum starten ziemlich lange. Um dem User zu zeigen, dass das Programm arbeitet und der nicht tausendmal das Programm neu startet möchte ich den Mauscursor nach dem starten des Programms auf HourGlass setzten und beim anzeigen der ersten Form wieder zurück. Wie kann ich das machen?

Danke

Sascha Ballach

[Karsten Hoffrath]

Hallo<br>
versuch doch einmal, im OnCreate des ersten Formulars das erzeugt wird, die folgende Anweisung einzubauen :<bR>

Screen.Cursor:=crHourglass

[Jens Schumann]

Hallo Sascha,<br> wie wäre es mit einem Splashscreen?<br>:-) Jen

Hallo Jens,
danke, aber könntest Du mir mehr Informationen zu einem Splashscreen zukommen lassen?
Ich habe in der Hilfe nachgesehen und nur eine Seite zu einem Splashscreen gefunden. Ich ersehe aber nicht, wo die Komponente herkommt. Mir reicht es auch nicht, diesen bei OnActivate aufzurufen. Er muß gleich bei OnCreate aufgerufen werden. Ich habe es aber nicht geschafft die Komponente zu finden.
Sasch

[Andreas Kosch]

Hallo,

Borland demonstriert in dem Demo-Programm <b>mastapp.dpr</b> den Einsatz eines Splash-Screens. Alle Aufrufe werden direkt in der DPR-Datei vorgenommen:
<pre>
begin
SplashForm := TSplashForm.Create(Application);
SplashForm.Show;
SplashForm.Update;
Application.Title := 'Marine Adventures Order Entry';
Application.HelpFile := 'MASTAPP.HLP';
Application.CreateForm(TMastData, MastData);
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TBrPartsForm, BrPartsForm);
Application.CreateForm(TQueryCustDlg, QueryCustDlg);
Application.CreateForm(TEdPartsForm, EdPartsForm);
Application.CreateForm(TBrCustOrdForm, BrCustOrdForm);
Application.CreateForm(TEdCustForm, EdCustForm);
Application.CreateForm(TEdOrderForm, EdOrderForm);
Application.CreateForm(TSearchDlg, SearchDlg);
Application.CreateForm(TBrDateForm, BrDateForm);
Application.CreateForm(TAboutBox, AboutBox);
Application.CreateForm(TPickRpt, PickRpt);
Application.CreateForm(TCustomerByInvoiceReport, CustomerByInvoiceReport);
Application.CreateForm(TOrdersByDateReport, OrdersByDateReport);
Application.CreateForm(TInvoiceByOrderNoReport, InvoiceByOrderNoReport);
Application.CreateForm(TPickOrderNoDlg, PickOrderNoDlg);
SplashForm.Hide;
SplashForm.Free;
Application.Run;
end.
</pre&gt