var
i: integer;
begin
for i:=0 to panel1.controlcount do
begin
// 控制項: panel1.controls[i]
// 加入自己**
end;
end;
procedure tform1.button2click(sender: tobject);
var
i:integer;
begin
for i:=0 to self.componentcount-1 do就是tform1的控制項數量
begin
if self.components[i] is tedit then //判斷控制項是否為tedit
begin
if (self.components[i] as tedit).text='' then showmessage(self.components[i].name);
end;
end;
end;
利用這個function findcomponent(const name: string)函式你可以找到你要的任何控制項,然後判斷它是否為空. 使用tedit.findcomponents(edit(i))函式,i為控制項的序號,具體看一下幫助！
還有乙個
方法就是給他們的tag賦同乙個值，比如1，其他預設為零，程式如下：
procedure tform1.button2click(sender: tobject);
var
i:integer;
begin
for i:=0 to self.componentcount-1 do就是tform1的控制項數量
begin
if self.components[i] is tedit then //判斷控制項是否為tedit
begin
if (self.components[i] as tedit).text='')
and (self.components[i] as tedit).tag=1) then
showmessage(self.components[i].name);
end;
end;
end;
delphi控制項遍歷
delphi中，遍歷窗體上的控制項，並顯示在listbox1中 listbox1.items.add 開始遍歷控制項 for i 1 to componentcount 1 do begin listbox1.items.add components i name if components i i...
delphi 控制項簡介
一 codegear interbase express 自帶的資料庫 dataset mybase dataaccess 伺服器遠端資料 data snap connection 遠端資料庫 dbexpress delphi 自己連線 db2,informix,interbase,mssql,my...
Delphi 控制項安裝
delphi 控制項安裝 比較全 由於元件提供的方式不同，所以安裝的方法也是不一樣的，下面就目前常見的各種形式的元件的安裝方法介紹一下。1只有乙個dcu檔案的元件。dcu檔案是編譯好的單元檔案，這樣的元件是作者不想把原始碼公布。一般來說，作者必須說明此元件適合delphi的哪種版本，如果版本不對，在...