線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1828
推到 Plurk!
推到 Facebook!

undeclared identifier: 'TForm1'

答題得分者是:GrandRURU
jackiemi2_seed
中階會員


發表:33
回覆:94
積分:75
註冊:2006-09-11

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-11-16 08:08:33 IP:203.69.xxx.xxx 訂閱
下面語法目地是在改變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
站務副站長


發表:234
回覆:1651
積分:1742
註冊:2005-06-21

發送簡訊給我
#2 引用回覆 回覆 發表時間:2011-11-16 08:40:21 IP:59.120.xxx.xxx 未訂閱
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, 註解 無‧
系統時間:2017-10-20 2:27:18
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!