我想問 呢  !    我現在想做一個功能... 功能係 分類選項. . 要點做 ?
例如 我有 兩個 combobox ... 其中第一個 入面 裝有 ' 田賽 ' ' 徑賽 ' 兩樣選項... 我想做一個功能就係.
當我 係 第 1 個 comobox 選 田賽 的時候. 第2 個 combobox 只顯示 鉛球 , 跳高, 跳遠 .. ~. .不會顯不100米, 200米 1500米
相反.. 我選 徑賽 的時間 第2 個combobox只顯示 徑類 比賽 不會 顯示 田類 比賽. .!!
我想知用咩 方 法. .語句. .屬性去做呀. .? 或者 第 2 個方法都可以 給我意見. . . 最重要係 屬性 同 語句. . !!

給你一點提示！
ComboBox.Items的Clear方法，ComboBox.Items的Add方法，ComboBox的OnChange事件，以及ComboBox.ItemIndex屬性等搞懂了，答案就出來了。...加油！

.. ! 我還搞不懂喔.. 可再加以說明一下 . .. 讓我 試試. . =_=

ComboBox.Items的Clear方法，可以清除ComboBox裡面所有的項目。
ComboBox.Items的Add方法，可以加入項目。
ComboBox的OnChange事件發生於當ComboBox的Text屬性變動時。
ComboBox.ItemIndex屬性，可以取得當ComboBox在單選狀態下被Click時的項目索引。

成功了. .謝謝. .!! ^^

unit TestMain;
interface
uses
Windows, Forms, Classes, Controls, StdCtrls;
const
ComboBoxStr0 = '田賽,徑賽';
ComboBoxStr1 = '鉛球,跳高,跳遠';
ComboBoxStr2 = '100米,200米,1500米';
type
TForm1 = class(TForm)
ComboBox1: TComboBox;
ComboBox2: TComboBox;
procedure FormCreate(Sender: TObject);
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ComboBox1Change(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
uses SysUtils;
{$R *.dfm}
function split(S, Delimiter: string): TStringList;
begin
Result := TStringList.Create;
Result.Text := StringReplace(S, Delimiter, #13, [rfReplaceAll,rfIgnoreCase]);
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key = VK_ESCAPE then Close;
end;
procedure TForm1.FormCreate(Sender: TObject);
var
L: TStringList;
begin
L := split(ComboBoxStr0,',');
if L <> nil then
begin
ComboBox1.Items.Text := L.Text;
ComboBox1.ItemIndex := 0;
ComboBox1Change(nil);
FreeAndNil(L);
end;
end;
procedure TForm1.ComboBox1Change(Sender: TObject);
var
L: TStringList;
begin
case Self.ComboBox1.ItemIndex of
0: L := split(ComboBoxStr1,',');
1: L := split(ComboBoxStr2,',');
else L := nil;
end;
if L <> nil then
begin
ComboBox2.Items.Text := L.Text;
ComboBox2.ItemIndex := 0;
FreeAndNil(L);
end;
end;
end.