在intraweb的程式中,想要動態產生iwlabel並將其置於IWRegion元件內,但一直無法成功試出,請各位大大幫忙 labels[j]:=Tiwlabel.Create(self); labels[j].Left:=x; labels[j].Top:=y; labels[j].Font.Size:=10; labels[j].Caption:=text; labels[j].Parent:=iwregion1; labels[j].Show; 會將所需產生的元件顯示在form上,但無法置於IWRegion內,我是新手,請大家幫幫忙

Hi ctm,    確定一下你的 X,Y 值不會超出 IWRegion1 的範圍外！

procedure TIWForm1.IWButton2Click(Sender: TObject);
var
  I,X,Y : Integer;
  Text : String;
  Labels : Array of TIWLabel;
begin
  SetLength(Labels,6);
  For i := 0 to 5 do
    begin
      X := (i * 100) mod IWRegion1.Width;
      y := (i * 200) mod IWRegion1.Height;
      Text := 'Text'   IntToStr(i);
      Labels[I] := TIWLabel.Create(Self);
      Labels[I].Left := X;
      Labels[I].Top := Y;
      Labels[I].Font.Size:=10;
      Labels[I].Caption:= Text;
      Labels[I].Parent:= IWRegion1;
      Labels[I].Show;
    end;
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.