Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Programmatically open find/replace windows
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01201555
Message ID:
01201592
Vues:
24
>You may check for
>WExist('Find')=.t.
>before sending search string.
>By doing it by Timer you will ensure correct sequence.

Works like a charm. I created timer timerFINDDialog with Interval = 100 and Timer event=
if !WEXIST('Find')
	CLEAR TYPEAHEAD
	KEYBOARD '{CTRL+F}'
else		
	KEYBOARD (thisform.csearchstring)
	KEYBOARD '{ENTER}'
	this.Enabled = .f.	
endif
I call it from my Find button by..
IF RECCOUNT('curs_sqlroutines')>0

thisform.edtRoutine_Definition.SetFocus()
thisform.timerFINDDialog.Enabled = .t.

endif
Seems completely reliable.

Thanks!
____________________________________

Don't Tread on Me

Overthrow the federal government NOW!
____________________________________
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform