Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Works in EditBox but not in Textbox
Message
 
À
09/07/2002 11:13:24
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00676530
Message ID:
00676693
Vues:
17
>>I can't reproduce this error with just base classes so what is your RightClick doing?
>
>The minute I Right-Click the Valid event fires up with my SET STEP command, then when I step through, the SelStart property resets, so the RightClick is doing nothing!
>
>Kev
Sorry I'm not being much help, I can only think that it has something to do with the framework as my version doesn't produce an error.
DEFINE CLASS form1 AS form

	DoCreate = .T.
	AutoCenter = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Alignment = 3, ;
		ControlSource = "address.corganisation", ;
		Height = 23, ;
		Left = 36, ;
		Top = 24, ;
		Width = 144, ;
		Name = "Text1"


	PROCEDURE Init
		If !Seek(1, "Address", "ID")
			Return .F.
		EndIf
	ENDPROC


	PROCEDURE selectvalues
		Lparameters loControl

		Wait window "SelStart is "+Transform(loControl.SelStart)+" SelLength is "+Transform(loControl.SelLength)
	ENDPROC


	PROCEDURE text1.Valid
		Set Step On
		NoDefault
	ENDPROC


	PROCEDURE text1.RightClick
		ThisForm.SelectValues(This)
	ENDPROC
ENDDEFINE
Caroline
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform