[Form.]Control.SelText[= cString]

[Form.]Control.SelText[= cString]

o = CREATEOBJECT('selStart')
o.show( 1 )

*
DEFINE CLASS selstart AS form


	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT text1 AS textbox WITH ;
		Alignment =  3 , ;
		Value =  1234567890 , ;
		Height =  25 , ;
		Left =  24 , ;
		Top =  12 , ;
		Width =  289 , ;
		Name = "Text1"


	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  60 , ;
		Left =  24 , ;
		Height =  25 , ;
		Width =  193 , ;
		Caption = "Выдели текст и нажми", ;
		Name = "Command1"


	PROCEDURE command1.Click
		WAIT WINDOW thisform.text1.SelText
	ENDPROC


ENDDEFINE