psv73Не удается побороть. Может кто подскажет в какую сторону копать?! :(
Ну попробуй известным методом, координаты сам вычислишь через OBJTOCLIENT(), правда не всё так просто
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
o = CREATEOBJECT('MyForm')
o.show( 1 )
DEFINE CLASS MyForm as Form
PROCEDURE init
CREATE CURSOR test (f1 i, f2 c( 10 ))
INSERT INTO test VALUES ( 1 , 'First')
INSERT INTO test VALUES ( 1 , 'Second')
GO TOP IN test
this.AddObject('grd1','grid')
WITH this.grd1
.visible = .t.
.columncount = 2
.Highlight = .t.
.column2.addobject('MyCon1','MyCon')
.column2.currentcontrol = 'MyCon1'
.column2.selectonentry = .t.
.column2.controlsource = 'test.f2'
.column2.MyCon1.visible = .t.
.column2.sparse = .f.
ENDWITH
ENDPROC
ENDDEFINE
DEFINE CLASS MyCon as Container
**DEFINE CLASS MyCon as Control
ADD Object 'text1' as 'textbox1'
ADD Object 'Command1' as 'commandbutton'
PROCEDURE init
WITH this.text1
.visible = .t.
.top = 0
.left = 0
.width = 60
.height = 25
.selectonentry = .t.
.controlsource = 'test.f2'
ENDWITH
WITH this.Command1
.visible = .t.
.top = 0
.left = 60
.width = 30
.height = 30
ENDWITH
ENDPROC
PROCEDURE gotfocus
this.text1.setfocus()
ENDPROC
ENDDEFINE
DEFINE CLASS textbox1 as TextBox
PROCEDURE gotfocus
MOUSE DBLCLICK AT 25 , 100 PIXELS WINDOW (thisform.name) LEFT
ENDPROC
ENDDEFINE
