获取ComboBox的内容问题 ( 积分: 200 )

bslhszy · 2005-12-16

一个图书馆管理程序有两个ComboBox,怎么去获取ComboBox的数量,并且知道用户选择了哪个ComboBox?空间出问题了,无法传图,略微描绘一下.         ComboBox        ComboBox         学生进入        教师进入 以上是大概的情况.只是"学生进入"和"教师进入"两个按纽是一副图画,我用工具找了半天也没找到Button控件. 要解决的问题是,我点"学生进入"或者"教师进入"的时候,获取ComboBox的内容. 不好意思,我开始没说明白.谢谢大家了

bslhszy · 2005-12-16

一个图书馆管理程序有两个ComboBox,怎么去获取ComboBox的数量,并且知道用户选择了哪个ComboBox?空间出问题了,无法传图,略微描绘一下.         ComboBox        ComboBox         学生进入        教师进入 以上是大概的情况.只是"学生进入"和"教师进入"两个按纽是一副图画,我用工具找了半天也没找到Button控件. 要解决的问题是,我点"学生进入"或者"教师进入"的时候,获取ComboBox的内容. 不好意思,我开始没说明白.谢谢大家了

liuchong · 2005-12-16

一：ComboBox数量：2 二： if ActiveControl=ComboBox1 then  showmessage('选择ComboBox1') else if ActiveControl=ComboBox2 then  showmessage('选择ComboBox2');

chenglc · 2005-12-16

可以用findcomponent()函数查找来获得combobox的数量

bslhszy · 2005-12-16

这个有点特殊性,我一会抓张图上来.谢谢楼上两位.

plenilune168 · 2005-12-16

你不是说有2个么？怎么还要获取多少个？

wuyongzhen · 2005-12-16

有什么意义吗？ 我不明白，你要实现什么功能啊？

cangyu · 2005-12-16

参考一下下面的代码，希望对你有帮助 procedure Tfrom1.Button3Click(Sender: TObject); Var i,j:integer; begin  for i := 0 to ComponentCount -1 do  Begin    if Components is TComboBox  then    Begin      Inc(j);  // 在这里对 TComboBox 计数      with Components as TComboBox do      Begin        // 在这里可以操作TComboBox        Text := '' ;      End;    End;  End; end;

雨竹 · 2005-12-16

这个就是获取ComboBox的个数 ComboBox.RecordCount

Beyondbill · 2005-12-16

如果要判断是点击了那个ComboBox，通过给不同的ComboBox设置不同的Tag值就行了，这种方法最简单。 如果要统计一个窗体中有多少个ComboBox，用下面代码 For nIdx := 0 to ComponentCount - 1 do begin  if Components[nIdx] is TComboBox then    计数加１ end;

chi104 · 2005-12-16

procedure TForm1.Button1Click(Sender: TObject); var  i:integer;  j:integer; begin  J:=0;  for i:=0 to Form1.ComponentCount-1 do    begin      if Form1.Components.ClassType = TComboBox then      j:=j+1;    end;  showmessage(inttostr(j)); end;  这样可以检测FORM上面的TComboBox 数量的多少。

sbzldlb · 2005-12-16

function getComponentCount():integer For i := 0 to self.ComponentCount - 1 do begin  if Components is TComboBox then result:=result+1; end;

bbscom · 2005-12-16

procedure TForm1.ComboBox1Change(Sender: TObject); var  item:string; begin  item:=ComboBox1.Text;  if item='學生進入' then  begin     ShowMessage(ComboBox2.Text);  end else begin     ShowMessage(ComboBox2.Text);  end; end;

plenilune168 · 2005-12-16

for i:=0 to Form1.ComponentCount-1 do begin  if Form1.Components.ClassType = TComboBox then  j:=j+1; end; 不如这个效率高，特别是窗体上控件很多的时候 for i:=0 to Form1.ControlCount-1 do begin  if Form1.Controls.ClassType = TComboBox then  j:=j+1; end; //------------------------------------------------------- //ComboBox1和ComboBox2共用同一个Change事件 procedure TForm1.ComboBox1Change(Sender: TObject); begin  //仅是获取内容    showmessage('要获取的内容(可输入模式)：'+TComboBox(Sender).Text);  showmessage('要获取的内容(只选择模式)：'+TComboBox(Sender).Items[TComboBox(Sender).ItemIndex]);    //判断哪一个ComboBox  if Sender=ComboBox1 then    begin       ShowMessage('这是ComboBox1');    end  else    begin       ShowMessage('这是ComboBox2');    end; end;

bslhszy · 2005-12-16

我的意思是,另外写一个程序,当点击"学生进入"或者"教师进入"的同时,获取ComboBox的内容.不好意思啊,各位富翁,我这个表达实在不是很清楚.

plenilune168 · 2005-12-16

Type  TForm=class(TForm)  public    ComboBoxValue:string;  end; procedure TForm1.ComboBox1Change(Sender: TObject); begin  ComboBoxValue:=+TComboBox(Sender).Text);  或  ComboBoxValue:=TComboBox(Sender).Items[TComboBox(Sender).ItemIndex]); end; ---------------------------- Form2中 begin  showmessage('Form1ComboBox的值'+ Form1.ComboBoxValue ); end;

listhano · 2005-12-16

方法一 Table1.First; while not Table1.Eof do begin  Combobox1.Items.Append(Table1.FieldByName('...').AsString);  Table1.next; end; 方法二 combobox.item.clear; with table1 do begin  while not eof do begin     combobox.item.add(fieldbyname().value);     next;  end; end;

寻路 · 2005-12-16

我想楼主是指取得一个外部程序的信息!如果是的,请参考下面的代码: Handle := FindWindow(nil, '你想获得信息的窗口标题'); if Handle <> 0 then EnumChildWindows(Handle, @EnumerateChildWindows, 0); function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL; stdcall; var  ClassName:     array [0..255] of Char;  I: Integer; begin  FillChar(ClassName, 256, 0);  GetClassName(hWnd, ClassName, 255);  if (StrPas(ClassName) = 'ComboBox') then  begin    //...这里实现你的代码  end;    if GetFocus = hWnd then  begin    //...这里实现你的代码  end;  Result := True; end;

bslhszy · 2005-12-17

接受答案了.

获取ComboBox的内容问题 ( 积分: 200 )

bslhszy

Unregistered / Unconfirmed

bslhszy

Unregistered / Unconfirmed

liuchong

Unregistered / Unconfirmed

chenglc

Unregistered / Unconfirmed

bslhszy

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

wuyongzhen

Unregistered / Unconfirmed

cangyu

Unregistered / Unconfirmed

雨竹

Unregistered / Unconfirmed

Beyondbill

Unregistered / Unconfirmed

chi104

Unregistered / Unconfirmed

sbzldlb

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

bslhszy

Unregistered / Unconfirmed

plenilune168

Unregistered / Unconfirmed

listhano

Unregistered / Unconfirmed

寻路

Unregistered / Unconfirmed

bslhszy

Unregistered / Unconfirmed

Similar threads