undeclared identifier: 'TForm1' |
答題得分者是:GrandRURU
|
jackiemi2_seed
中階會員 ![]() ![]() ![]() 發表:37 回覆:97 積分:76 註冊:2006-09-11 發送簡訊給我 |
下面語法目地是在改變form大小時,可以自動修改gird的寬和高
在一般程式可以執行 但放到元件裡,會出現錯誤訊息undeclared identifier: 'TForm1' 請問一下,需uses什麼東西嗎?? Thanks ![]() procedure TForm1.fun_resize(lf_form:TForm1;li_grid: integer); var i: integer; begin for i := 0 to (Form1.ComponentCount-1) do begin //grid if(Form1.Components[i].ClassType = TDBGrid)then Begin TDBGrid(Form1.Components[i]).Width:=form1.Width - 30; TDBGrid(Form1.Components[i]).Height:=form1.Height - li_grid -50; end; end;//for i := 0 to (Form1.ComponentCount-1) do begin end;
------
OS : Win 7 pro Program : Delphi 7 DataBase : Ms Sql 2008 |
GrandRURU
站務副站長 ![]() ![]() ![]() ![]() ![]() ![]() 發表:240 回覆:1680 積分:1874 註冊:2005-06-21 發送簡訊給我 |
If_form宣告了不用,不覺得很奇怪嗎?
還有,你的TForm1是不是要先宣告? 如果父類的TForm可用,那就用它 改成以下內容,請再試試吧 procedure TForm1.fun_resize(lf_form: TForm; li_grid: integer);var i: integer; begin for i := 0 to (lf_form.ComponentCount-1) do begin //grid if(lf_form.Components[i].ClassType = TDBGrid)then Begin TDBGrid(lf_form.Components[i]).Width:=lf_form.Width - 30; TDBGrid(lf_form.Components[i]).Height:=lf_form.Height - li_grid -50; end; end;//for i := 0 to (Form1.ComponentCount-1) do begin end; ===================引 用 jackiemi2_seed 文 章=================== 下面語法目地是在改變form大小時,可以自動修改gird的寬和高 在一般程式可以執行 但放到元件裡,會出現錯誤訊息undeclared identifier: 'TForm1' 請問一下,需uses什麼東西嗎?? Thanks ![]() procedure TForm1.fun_resize(lf_form:TForm1;li_grid: integer); var i: integer; begin for i := 0 to (Form1.ComponentCount-1) do begin //grid if(Form1.Components[i].ClassType = TDBGrid)then Begin TDBGrid(Form1.Components[i]).Width:=form1.Width - 30; TDBGrid(Form1.Components[i]).Height:=form1.Height - li_grid -50; end; end;//for i := 0 to (Form1.ComponentCount-1) do begin end;
編輯記錄
GrandRURU 重新編輯於 2011-11-15 17:45:31, 註解 無‧
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |