Panel İçindeki editlere Nasıl Ulaşırım

[ssteeltr]

arkadaşlar panel 1 içindeki editleri otomatik olarak table 'a insert edecem ancak panel içindeki edite ulaşamıyorum

Kod: Tümünü seç

query.insert

for i:=0 to panel1.componentcount-1 do

query.fields[i].value:=(panel1.components[i] as Tedit).text;

query.post

burda

kod çalışmıyor bende kontrol için şu kodu yazdım

Kod: Tümünü seç

showmessage(inttostr(panel1.componentcount))

sonuç sıfır görünüyor.

[sabanakman]

Tüm bileşenlerin sahibi (owner) ı formun kendisidir. Bu yöntemden yola çıkarak

Kod: Tümünü seç

for i:=0 to ComponentCount do 
  if (Components[i] is TEdit) then
   with TEdit(Components[i]) do
    if Parent=Panel1 then begin
      //<- burası aradığın editler için
  end;
end;

kodu yazılabilir. Birde direk panel içi arama vardır ama bu TControl olarak yapılmaktadır.

Kod: Tümünü seç

for i:=0 to Panel1.ControlCount-1 do
 if Panel1.Controls[i] is TEdit then
  with TEdit(Panel1.Controls[i]) do begin
    //<-Aradığın editler burada
end

Ben 2. yolu kullanmanı öneririm. İlkini sadece bilgi amaçlı verdim. Kolay gelsin.

[ssteeltr]

arkadaşlar tüm sorun componens yerine controls yazdımmı sorun çözüldü