for i:= 0 to 9 do
begin
mCheckBox[i] := TCheckBox.Create(Self);
mCheckBox[i].Parent := Self.Panel5; // 設定物件顯示於那個 Panel 內
mCheckBox[i].Name := 'mCkbox' FormatFloat('0', ADOQuery.FieldByName('Serial').value);
end;

如上所列程式，我以動態設定了多個CheckBox，
並且元件名由DB內讀取'Serial' 讀取命名。

現在.... 我已知動態物件名稱但不知 [i] 的 i 值，該如何控制這個物件？
Ex. 我要取的mCheckBox[i].Checked 的值，該怎麼做？

編輯記錄

[code delphi]
procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
for i:= 0 to 9 do begin
if TCheckBox(FindComponent('mCkbox' FormatFloat('0', i 1))).checked then begin
showmessage('mCkbox' FormatFloat('0', i 1));
end;
end;
end;
[/code]

------
努力會更接近成功

可以了！
大感恩....... ^^

提醒一下，FindComponent 找不到時會回傳 nil
要判斷，不然就 Access Violation 了

------
歡迎參訪 "腦殘賤貓的備忘錄" http://maolaoda.blogspot.com/

編輯記錄