易语言编辑框内本来有一段文本,我输入字以后,怎么把以前的全部删除然后刚刚打的字显示在编辑框内

要实现如下功能:_启动窗口 载入以后,编辑框.内容=请在此处输入搜索文字。。。
编辑框获得焦点
然后我要在这里直接输入文字,然后编辑框的内容自动消失,我打的字显示在编辑框内,我现在弄的效果不行,在输入字以后,是清空了编辑框的内容,但是你输入的第一个字也跟着消失了,假设我要输入易语言,效果就是编辑框的内容清空,然后易语言上平。
求代码!

.版本 2

.程序集 窗口程序集1

.子程序 __启动窗口_创建完毕

编辑框1.内容 = “请在此处输入搜索文字。。。”

编辑框1.文本颜色 = #灰色

.子程序 _编辑框1_鼠标左键被按下, 逻辑型

.参数 横向位置, 整数型

.参数 纵向位置, 整数型

.参数 功能键状态, 整数型

.如果真 (编辑框1.内容 = “请在此处输入搜索文字。。。”)

    编辑框1.内容 = “”

    编辑框1.文本颜色 = #黑色

.如果真结束

追问

不是鼠标单击后文字消失,是我直接输入文本后,原来的消失,然后可以继续输入心的文本!

追答

.版本 2

.子程序 _编辑框1_字符输入, 整数型
.参数 字符代码, 整数型

.如果真 (编辑框1.内容 = “请在此处输入搜索文字。。。”)
编辑框1.内容 = “”
编辑框1.文本颜色 = #黑色
.如果真结束

温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-12-18
.版本 2

.程序集 窗口程序集1
.程序集变量 i, 整数型

.子程序 __启动窗口_创建完毕

编辑框1.内容 = “请在此处输入搜索文字。。。”
编辑框1.起始选择位置 = -1

.子程序 _编辑框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

.判断开始 (i ≠ 1)
编辑框1.起始选择位置 = 0
编辑框1.被选择字符数 = 取文本长度 (编辑框1.内容)
.默认

.判断结束
i = 1

.子程序 _编辑框1_内容被改变

i = 0

‘类似 ie网站输入 鼠标单击编辑框 !本回答被提问者采纳
第2个回答  2014-05-22
.子程序 __启动窗口_创建完毕

编辑框.内容=请在此处输入搜索文字。。。

.子程序 _编辑框1_获取焦点, 逻辑型
编辑框.文本颜色=#灰色
.如果真 (编辑框.文本颜色=#灰色)
编辑框.内容=“”
编辑框.文本颜色=#黑色
.子程序 _编辑框1_失去焦点,
编辑框.内容=“请在此处输入搜索文字。。。”
编辑框.文本颜色=#灰色

'这么简单啊,手打出来的,格式可能不对
第3个回答  2011-12-17
编辑框事件 内容被改变 判断文本就行了
第4个回答  2011-12-18
同2楼