OCX Suchfenster unterdrücken

31/10/2007 - 12:35 von Tobias Jakobs | Report spam
Hallo,

ich hab in einer Foxpro-Klasse ein OCX und füge diese zur Laufzeit mit
addobject einer Form hinzu.
Das geht auch alles. Nur wenn der kunde das OCX nicht installiert hat kommt
ein Datei öffnen Dialog in dem ich nach dem OCX suchen kann. Das will ich
aber nicht. Wenn das OCX nicht installiert ist, soll er es in eine Logdatei
schreiben und nicht weiter nerven.
Weiß einer von eich wie ich den Dialog unterdrücken kann?
Ein Try/Catch hilft da leider nicht weiter.

Gruß,
Tobias




Mein Code:

TRY
lcObjektName = "myClass"
SET CLASSLIB TO myClass ADDITIVE
Thisform.addobject(lcObjektName, "myClass")
...
CATCH
...
ENDTRY
 

Lesen sie die antworten

#1 Heike Vogt
31/10/2007 - 12:47 | Warnen spam
Hallo Tobias,
ob nachfolgendes auch bei ocx klappt, weiß ich nicht genau, aber in Fàllen,
wo ich keine "nervigen" Meldungen haben möchte, mach ich folgendes:

lError = .F.
zError = ON("ERROR")
lcObjektName = "myClass"
ON ERROR lError = .T.
SET CLASSLIB TO myClass ADDITIVE
Thisform.addobject(lcObjektName, "myClass")
ON ERROR &zError
IF lError
*** hier jetzt die Logdatei schreiben
ENDIF

Einen Versuch ist es wert.

Gruß Heike

Ähnliche fragen