SET CURSOR OFF
问题：鼠标点击单元格后，鼠标会变成输入模式，就这个 （I），我想显示鼠标原来的样子


    效果1

    效果2

有没有办法实现，效果1或效果2的效果
我不想要哪个外面的蓝色的线框
最好像excel那样，点击单元格后，就是框选当前单元格，没有其他的，我只是选择单元格，不会编辑！
选择单元格，哪个框的线条最好能粗一点，框是绿色的

默认就是：MousePointer 属性 0 ，我说这个没法实现嘛

有没有办法让，红色的背景，把单元格填满，这样有点难看

你是在本地绑定的吧！我现在是临时表，请教我要怎么用代码绑定控件
WITH This.column4
.addobject("Container1","Container")
.currentcontrol='Container1'
*.sparse=.f.
*.Container1.标签=本地数据.期号   &&这里要怎么加标签
.Container1.visible=.t.
ENDWITH
我要怎么在容器里面加一个标签，用来显示内容！不知道怎么弄，还有内容居中显示

[此贴子已经被作者于2023-4-24 13:00编辑过]

字怎么不见了，我不是设置了黑色吗

Local oCol as Column
For each m.oCol in This.Columns
    If m.oCol.ColumnOrder == m.nColIndex
        Exit
    EndIf
EndFor

If Upper(m.oCol.Name) == 'COLUMN2'        && 当前列是绑定 f2 字段的框框列
    *-- 自定义类 BoxText 设置的是透明背景，要显示背景色，必须改成不透明
    m.oCol.Box1.BackStyle = 1
    m.oCol.Box1.BackColor = Rgb(255,0,0)
    m.oCol.Box1.Text1.ForeColor = Rgb(0,0,0)
    m.oCol.Box1.Text1.FontBold = .t.
    *-- 显示背景色后, 原来的绿色的粗边框就不协调了, 边框厚度调整为 0
    m.oCol.Box1.BorderWidth = 0
EndIf

[此贴子已经被作者于2023-4-25 11:21编辑过]

把 AfterRowColChange 里面的代码都注释掉，也不能显示

Local nRowHeight, nColWidth, nMagin, nTop, nWidth

m.nRowHeight = This.Parent.Parent.RowHeight
m.nColWidth  = This.Parent.Width

m.nMagin = This.BorderWidth
With This.Text1 as TextBox
    m.nTop = (m.nRowHeight - 2*m.nMagin - .Height) / 2
    m.nTop = Max(m.nMagin, m.nTop)
    m.nWidth = Max(0, m.nColWidth - 2*m.nMagin)
    .Move(m.nMagin+1, m.nTop+1, m.nWidth-1)
EndWith

This.Move(0, 0, m.nColWidth, m.nRowHeight)

Return This.BackStyle

Local oCol as Column

m.oCol = This.Parent

With This.Text1 as TextBox
    .ControlSource = m.oCol.ControlSource
    .Format = m.oCol.Format
    .InputMask = m.oCol.InputMask
    .Alignment = m.oCol.Alignment
    .FontName = m.oCol.FontName
    .FontSize = m.oCol.FontSize
    .FontBold = m.oCol.FontBold
    .Height = Fontmetric(1, .FontName, .FontSize, Iif(.FontBold, 'B', 'N'))&&是不是这里
EndWith

This.BackColor = 0xffffff

你看一下哪里有冲突

[此贴子已经被作者于2023-4-25 11:45编辑过]

degidt@

看到了，现在有点其他事情

m.oCol.Box1.Text1.ControlSource = m.oCol.ControlSource&&完美解决，我不能绑定数据源，因为临时表很多

现在加了m.oCol.Box1.Text1.ControlSource = m.oCol.ControlSource这句，可以正常显示，但是上下左右没有居中，企鹅号能不能通过一下，谢谢！
我不能绑定数据源，因为我有很多查询，会生成很多临时表，绑定数据源是不科学的

[此贴子已经被作者于2023-4-25 17:52编辑过]