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， 註解 無‧
|
發表時間：2011-11-16 08:08:33
IP:203.69.xxx.xxx 訂閱
系統時間：2024-04-25 15:23:43
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |