在Delphi中如何在工具框中加入文本框

首先，你确认是把Edit拉到ToolBar上？难道你遇到什么问题了吗？ToolBar本来就可以直接作为Edit的容器，直接放上去就行了,除非你还有些什么限制条件（那么给我发消息或补充问题）

如果仅仅是让Edit占满工具栏？这也是一个小问题，一行代码即可。

如下 *** 作：在ToolBar的OnResize事件里加这一句：

Edit1.Width := ToolBar1.Width//假设 你的Edit和ToolBar分别为Edit1和ToolBar1.顺便说一下，把ToolBar的AutoSize属性设置为True哦.这样，Edit1就算是真正占满工具栏了。

这样可以了吗？如果还有什么需要，补充之！或者消息我（注明下问题）！

1：新建一个工程。

2：添加一个tmainmenu控件。

3：

procedure TForm1.Button1Click(Sender: TObject)

var

files,edit:tmenuitem

new,copy:tmenuitem

sub1,sub2,sub3,lines:tmenuitem

begin

files:=tmenuitem.Create(self)

edit:=tmenuitem.create(self)

files.Caption:='文件'

edit.caption:='编辑'

mainmenu1.AutoHotkeys:=mamanual{此句代码为不让系统自动设置快捷键}

form1.MainMenu1.Items.Add(files)

form1.mainmenu1.items.add(edit)

{上部代码为创建菜单头}

new:=tmenuitem.create(self)

copy:=tmenuitem.create(self)

new.Caption:='新建'

copy.caption:='拷贝'

files.Add(new)

edit.add(copy)

{上部代码为创建菜单项}

sub1:=tmenuitem.create(self)

sub2:=tmenuitem.create(self)

sub3:=tmenuitem.create(self)

lines:=tmenuitem.create(self)

lines.caption:='-'

sub1.caption:='子菜单1'

sub2.caption:='子菜单2'

sub3.caption:='子菜单3'

new.Add(sub1)

new.add(lines)

new.add(sub3)

copy.Add(sub2)

{上面代码出现多项子菜单和横线的效果}

end

在tmenuitem类中还有许多的事件和方法及属性，如Add,Clear,Click,Create,Delete,Destroy,Find,IndexOf,Insert,Remove等方法.

以上方法同样适用于TPopupMenud出菜单

跟你说一下处理这类问题的思路吧

例如:在输入学号的时候,显示学员的姓名(只要输入结果了,就在学员姓名编辑框中显示学员的姓名)

为学号编辑框定义OnChange事件,在这个事件中, select 姓名 from 学生表 where 学号=学号编辑框.text .如果查找到的数据唯一,则将查询到的结果写入学员姓名编辑框

如果还不会的话,还是多看看书,这问题太基础了,让人没兴趣.

---