intraweb问题。动态新建iwlabel时,iwlabel不显示。请指教! |
尚未結案
|
newstargirl
一般會員 發表:2 回覆:2 積分:0 註冊:2003-06-12 發送簡訊給我 |
动态新建iwlabel时,iwlabel不显示,代码如下
for I:=1 to 10 do
begin
with tiwlabel.Create(formmain2) do //动态新建iwlabel
begin
caption:='mm';
//tcap(query(datamodule1.Components[k]).Fields[j].FieldName));
name:=datamodule1.Components[k].Name 'd' inttostr(j);
left:=m;
top:=u;
parent:=formmain2;
width:=20;
useframe:=false;
m:=m 25;
end;
end;
|
hagar
版主 發表:143 回覆:4056 積分:4445 註冊:2002-04-14 發送簡訊給我 |
請問您的 formMain2 這個變數怎麼來的?
小弟這麼做是可以的.
implementation {$R *.dfm} uses ServerController, Unit1; var formMain1: TFormMain1; procedure TformMain.IWButton1Click(Sender: TObject); var i, m, u: integer; begin formMain1 := TformMain1.Create(WebApplication); m := 0; u := 15; for I:=1 to 10 do begin with TIWLabel.Create(formMain1) do //??新建iwlabel begin Caption := 'mm'; Left := m; Top := u; Parent := formMain1; Width := 20; m := m + 25; end; end; formMain1.Show; end;--- 每個人都是一本書 |
newstargirl
一般會員 發表:2 回覆:2 積分:0 註冊:2003-06-12 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |