在一个数据表中存放着CheckBox的name和控制checked的状态,from上有对应的CheckBox,其名称与数据表中的Name对应,而此from是动态生成的,代码如下: var hwnd: THandle; begin Hwnd:=FindWindow(nil, PCHAR('用户管理')); if Frm_user=nil then begin Frm_user:=TFrm_user.Create(Application); Frm_user.Show; end else BringWindowToTop(Hwnd); end; 现做如下处理: procedure TFrm_user.FormCreate(Sender: TObject); var chk: TCheckBox; begin with dm do begin {用户对应的代码} tbl_model.Open; tbl_model.First; while not tbl_model.Eof do begin t_name:=tbl_model.fieldByName('NAME').AsString; t_state:=tbl_model.fieldByName('STATE').AsString; chk:=TCheckBox(frm_user.FindComponent(t_name)); if chk<>nil then begin if t_state<>'0' then chk.Checked:=False else chk.Checked:=true; end; tbl_model.Next; end; end; end; 代码编译是通过,但运行时报出异常错误(如下图)!敬请各位,帮忙解决!谢谢

圖在哪?

看程式碼沒什麼問題 猜想是在 Frm_user 的 FormCreate 時 dm 尚未被 Create, 所以有 AV 的錯誤 解決方法是在 delphi 選單的 Project -> Options 調整 Auto-create Forms 的順序(即 dm 在 Frm_user 之前) 或在 Frm_user 的 FormCreate 時手動 create dm

我的DM是最开始的,还是有同样的错误!连接数据库使用的是ADO!

好可能是FindComponent(t_name)時, 找到的不是TCheckBox, 例如是TLabel一類的元件.

從你的程式碼看起來，好像並沒有特別去設定要抓那一個component， 所以會如john wong兄所提，可能抓到的是不同種類的元件， 如TLabel，最好對所有的元件掃過一遍做判斷，如下： for i := 0 to ComponentCount - 1 do begin if (Components[i] is TCheckBox) then begin //你要對CheckBox處理的程式碼... end; end; 試看看吧！