請問各位大大。

如何根據資料庫筆數，在form上自動產生checkbox個數呢。

thks

這是我動態產生button的範例, 其實checkbox也類似, 應足以參考用

[code delphi]
procedure TForm_PosArea1.FormCreate(Sender: TObject);
var col, row: integer;
colpitch, rowpitch: integer;
mbutton: TColorBtn;
begin
with DM_PartPos do begin
col:= 1;
row:= 1;
colpitch:= 15;
rowpitch:= 15;
IBQ_D7000a.Open;
while not IBQ_D7000a.Eof do begin
mButton := TColorBtn.Create(self);
mButton.Parent := self;
mButton.Height := 50;
mButton.Width := 80;
mButton.Left := 20 ((col-1) * (mButton.Width colpitch));
mButton.Top := 15 ((row-1) * (mButton.Height rowpitch));
mButton.Name := format('Btn%.3d',[aryi]);
mButton.Caption := IBQ_D7000a.FieldbyName('LTDNO').AsString #13
IBQ_D7000a.FieldbyName('SHORTNAME').AsString;
mButton.OnClick := btnClick;
inc(col);
if col>6 then begin
col:= 1;
inc(row);
end;
IBQ_D7000a.Next;
end;
IBQ_D7000a.Close;
end;
end;

[/code]

編輯記錄

 您好。

TColorBtn 是不是要定義呢。請問如何去定義。

麻煩您。

上面那篇的範例並不是讓你整個照抄去run的
我說的很清楚了, 這是一個Button的範例, 你再想想如果是CheckBox時, 要如何替換?

編輯記錄

PD 大大您好.
CHECKBOX是OK.是以TCHECKBOX.
我只是想了解,TColorBtn 這個部份應該自行建.
是如何去定義..
麻煩您..THKS

顯然你還是不懂, TColorBtn 是一個元件的物件名稱, 為何一直執意在TColorBtn 的問題呢?
mButton= mCheckBox
TColorBtn= TCheckBox
就是這樣而己了啊!

謝謝。麻煩您。