delphi中，遍歷窗體上的控制項，並顯示在listbox1中：
listbox1.items.add('開始遍歷控制項******');
for i:=1 to componentcount-1 do
begin
listbox1.items.add(components[i].name);
if components[i] is tdatetimepicker then
listbox1.items.add('時間控制項值：' + datetostr(tdatetimepicker(components[i]).date));
if components[i] is tedit then
listbox1.items.add('文字框值：'+tedit(components[i]).text);
end;
listbox1.items.add('遍歷控制項結束******');
end;
遍歷groupbox1中的子控制項
(和窗體中的控制項不同)
procedure tform1.button2click(sender: tobject);
vari:integer;
begin
listbox1.items.clear;
listbox1.items.add('開始遍歷控制項******');
for i:=1 to groupbox1.controlcount-1 do
begin
listbox1.items.add(groupbox1.controls[i].name);
if groupbox1.controls[i] is tdatetimepicker then
listbox1.items.add('時間控制項值：' + datetostr(tdatetimepicker(groupbox1.controls[i]).date));
if groupbox1.controls[i] is tedit then
listbox1.items.add('文字框值：'+tedit(groupbox1.controls[i]).text);
end;
listbox1.items.add('遍歷控制項結束******');
end;
Delphi遍歷控制項
var i integer begin for i 0 to panel1.controlcount do begin 控制項 panel1.controls i 加入自己 end end procedure tform1.button2click sender tobject var i inte...
delphi 控制項簡介
一 codegear interbase express 自帶的資料庫 dataset mybase dataaccess 伺服器遠端資料 data snap connection 遠端資料庫 dbexpress delphi 自己連線 db2,informix,interbase,mssql,my...
Delphi 控制項安裝
delphi 控制項安裝 比較全 由於元件提供的方式不同，所以安裝的方法也是不一樣的，下面就目前常見的各種形式的元件的安裝方法介紹一下。1只有乙個dcu檔案的元件。dcu檔案是編譯好的單元檔案，這樣的元件是作者不想把原始碼公布。一般來說，作者必須說明此元件適合delphi的哪種版本，如果版本不對，在...