OnEnter

图形单元类的事件

当单元得到焦点时执行

语法

published function OnEnter( Sender )

end function

这是个引出函数，参数Sender代表单元本身。

参见OnExit

Visual Graph脚本示例

下面的例子，当单元得到焦点设为绿色，失去焦点变成红色

published function OnEnter( Sender )

Sender.Pattern=1

Sender.BackColor = $FF00

end function

published function OnExit( Sender )

Sender.Pattern=1

Sender.BackColor=$FF

end function