delphi中combobox一个用法 delphi中combox怎么用

delphi中combobox一个用法

buttion事件里写

begin
if combobox.text=小明 then edit1.text=100
if combobox.text=小王 then edit1.text=90
......
end

最好是把数据存储到表了。通过查找combobox的值，获取对应的成绩，赋值给edit

delphi中combox怎么用

ComboBox1的OnChange事件里设置ComboBox2的内容
ComboBox2的OnChange事件里设置Edit1的内容
1 .valueField:"valuefield"//value值字段
2.displayField："field" //显示文本字段
3.editable：false//false则不可编辑，默认为true
4.triggerAction:"all"//请设置为"all",否则默认为"query"的情况下，选择某个值后，再此下拉时，只出现匹配选项，如果设为"all"的话，每次下拉均显示全部选项.

delphi dbcombobox 用法

朋友，那是不可能的，因为这两个dbcombobox的DB指针同数据集是同步的。除非你采用SQL查询生成Query表，再将dbcombobox2的Datasource指向Query表，并将Query表的指针指到第2行。
补充：
下面朋友说的DBLookupComboBox显示的是一个字段所有值的集合，是一个列表，同DBComboBox是不同的两类。

delphi中的ComboBox组件的使用？

三项操作：（{}括号内为多行文本）
1．对象属性中的“Items”设置成{
A
B
C
D
E
}
2．对象属性中的“Style”设置成csDropDownList
3．对象属性中的“ItemIndex”设置成0
保存编译运行

delphi7 自动调整combobox下拉列表宽度

unit Unit1

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls

type
TForm1 = class(TForm)
ComboBox1: TComboBox
Button1: TButton
Edit1: TEdit
procedure Button1Click(Sender: TObject)
procedure FormMouseMove(Sender: TObject Shift: TShiftState X,
Y: Integer)
private
{ Private declarations }
public
{ Public declarations }
end

var
Form1: TForm1

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject)

begin

end

procedure TForm1.FormMouseMove(Sender: TObject Shift: TShiftState X,
Y: Integer)
var strlen:integer
i:integer
begin
strlen:=length(combobox1.Items[0])
for i:=1 to combobox1.Items.Count-1 do//计算最大长度
begin
if length(combobox1.Items[i])>strlen then
strlen:=length(combobox1.Items[i])
end
combobox1.Width:=strlen*9//控制width属性
end
end.
我把代码写在窗体的鼠标移动事件中了，你也可以写在其他过程中。主要是控制组合框的width属性，通过列表框中的每个items的长度来改变。倒数第三行的strlen*9是可以改变的，乘以几都可以，自己试试乘几合适。

delphi combobox问题

你搞反了，现在你combox1的值不会变的，把赋值顺序改一下。
procedure TForm1.ComboBox1Change(Sender: TObject)
begin
form1.ComboBox2.ItemIndex := Form1.ComboBox1.ItemIndex
end