如何隨機產生edit元件

發文回覆瀏覽次數：836

推到 Plurk!

推到 Facebook!

尚未結案

paa
初階會員

發表：50
回覆：101
積分：30
註冊：2005-02-01

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-07-12 17:41:19

IP:210.70.xxx.xxx 未訂閱

我想利用透過edit，產生類似dbgrid那樣可以lsit出多筆資料，要怎麼樣透過程式，依照資料庫內容(資料筆數不同)，隨機產生出edit來list資料內容

wyndog
資深會員

發表：7
回覆：362
積分：348
註冊：2004-10-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-07-12 18:04:44

IP:60.248.xxx.xxx 未訂閱

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  MyEdit: array [0..3] of TEdit;
begin
  for i := 0 to 3 do begin
    MyEdit[i] := TEdit.Create(Form1);
    MyEdit[i].Text   := IntToStr(i);
    MyEdit[i].Width  := 30;
    MyEdit[i].Height := 10;
    MyEdit[i].Parent := Form1;
    MyEdit[i].Top    := 8;
    MyEdit[i].Left   := 8   i * 40;
    MyEdit[i].Visible := True;
  end;
end;

這是動態產生出四個 Edit 的方式怎麼套進去，就發揮自己的創意吧

系統時間：2024-07-01 11:47:23

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！