button事件中控制:
application.createform(Tform2,form2);
form2.combobox1.itemindex ;= 2;//itemindex 对应的是你想要显示的东西
...处理当combobox显示为“数学”的事件
form2.showmodal;
application.createform(Tform2,form2);
form2.combobox1.itemindex ;= 2;//itemindex 对应的是你想要显示的东西
...处理当combobox显示为“数学”的事件
form2.showmodal;
解决方案 »
- delphi网页填表 是否能按照图片名称去点击呢
- delphi fastreport3 图表标题更改
- 一个关于timer的问题
- 数据库连接的效率问题
- 请教,新手入门应该看那些书籍?
- IdTCPClient如何收到一个发送成功的返回值
- 如何判断Treeview控件中节点是打开还是关闭状态
- 我有一些数据,保存在tlist中,每项是个结构,如何在对一项排序的基础上,继续排序
- 用indy8 的TidTCPServer做一个接收数据的服务端,我想把收到的数据在memo中同步显示出来,如何实现??
- http://delphi8888.myrice.com/
- 在哪里才能下载DELPHI5.0完全正式企业版.
- 请教高手一个ado的问题.
table1.Active:=false;
table1.tablenema:='yw';
table1.active:=true;
form2.show;
button2.click事件中写
table1.Active:=false;
table1.tablenema:='sh';
table1.active:=true;
form2.show;
Form2;procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.ComboBox1.ItemIndex := 0;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
Form2.ComboBox1.ItemIndex := 1;
end;
Unit2; //Form2
studentcjform2.table1.close;
studentcjform2.table1.databasename:='d:\schoolinfo\studentcj\data\';
studentcjform2.table1.tablename:='yw';
studentcjform2.ComboBox1.ItemIndex := 0;
studentcjform2.label16.caption:='语文';
studentcjform2.caption:='语文成绩管理系统';
studentcjform2.table1.open;
其它各科的设计类似,感谢各位