遇到過這樣一個需求，第1個下拉框更換專案的時候下面的下拉框重新加載專案并且默認選擇第1個專案，界面如圖。原始碼如下
第1個下拉框里加2個專案叫A 和 B
procedure TForm1.cb1CloseUp(Sender: TObject);
var
iSelItemIndex: Integer;
begin
iSelItemIndex := cb1.ItemIndex;
if iSelItemIndex = -1 then //下拉框1什么都沒選清空下拉框2獲取下拉框1的索引序號
begin
iOriItemIndex := InitialComboBox(cb2,iSelItemIndex);
end
else if iSelItemIndex <> iOriItemIndex then //下拉框1更換了專案時清空下拉框2的專案，下拉框2默認選擇是第1個專案，獲取下拉框1的索引序號
begin
iOriItemIndex := InitialComboBox(cb2,iSelItemIndex);
if iSelItemIndex = 0 then
begin
cb2.Items.Add('我屬于A');
cb2.Items.Add('我也屬A');
cb2.ItemIndex := 0;
end
else
begin
cb2.Items.Add('我屬于B');
cb2.Items.Add('我也屬于B');
cb2.ItemIndex := 0;
end;
end;
end;
function TForm1.InitialComboBox(cbItem: TComboBox;iSelIndex: Integer): Integer;
begin
cbItem.Items.Clear;
result := iSelIndex;
end;
uj5u.com熱心網友回復：
第一個，選擇一個專案后，在OnChangeg事件中，對第二個Combobox重新加入Items轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/32580.html
標籤：語言基礎/算法/系統設計
上一篇：delphi+dcef3
下一篇：分享1個N進制轉十進制的