Die Beitrag ist für Fortgeschrittene Xbase++ User gedacht !
Code: Alles auswählen
PROCEDURE Main
PRIVAT zPATH := LEFT( AppName( .t. ),;
LEN( AppName( .t. ) ) - LEN( AppName( .f. ) ) )
//
// in einem andern PRG (!)
//
STATIC lCreThread := .F.
MEMVAR zPATH
PROCEDURE BildShow(oBrowse,cArtnr)
LOCAL oThBild
IF lCreThread
ELSE
MSGBOX(zPath) // 1.)
oThBild := Thread() :new()
oThBild:start( "ThreadBild", oBrowse, cArtnr ... )
//
// Hold This Thread !!!
//
SLEEP(20)
DO WHILE lCreThread
SLEEP(10)
ENDDO
ENDIF
RETURN
PROCEDURE ThreadBild(oBrowse,cArtnr,...)
lCreThread := .T.
MSGBOX(zPath) // 2.)
lCreThread := .F.
RETURN
gruss by OHR
Jimmy