TDBCheckbox ve hepsini unchecked yapma

[csyasar]

arkadaşlar merhaba;

projemde 2 tane form var. biri liste. biri kart(stok listesi ve onun ekleme/düzenme kartı gibi düşünün) 2 form. bunların adları:

formmkart ve formskart....

şimdi kayıt ekleme aşamasında formmkart'dan formskarttaki dbcheckboxların hepsini(60 tane) unchecked yapmaya çalışıyorum. checkbox'ta bu kod çalışıyor ama dbcheckboxta çalışmıyor....

kod parçası şu:

Kod: Tümünü seç

procedure Tformmliste.s_ekleClick(Sender: TObject);
var
  I: integer;
begin
try
s_dataset.Insert;
formskart.ShowModal;
i:=0;
for i:=0 to formskart.componentcount-1 do
begin
if formskart.components[i] is Tdbcheckbox then
begin
formskart.TdbCheckBox(Components[i]).Checked :=false;
end; end;

except
MessageDlg('Kayıt Ekleme aşamasında bir hata oluştu. veritabanına ulaşılamıyor. Veritabanı sunucunuzun çalışıp çalışmadığından emin olunuz.', mtError, [mbOK],0);
end;
end;

hata mesajı: Undeclared identifier: Tdbcheckbox

yapılmasını istediğim işlem:

database e kayıt ekleyince dbcheckboxların hepsini unchecked olarak ayarlamak...

[fduman]

Kod: Tümünü seç

TdbCheckBox(formskart.Components[i]).Checked :=false;

olması gerekir.

[csyasar]

denedim olmadı, aynı hata...

[husonet]

formskart.ShowModal

Form u showModal ettiğiniz için ve Formunuz kapandıktan sonra görünürde olmayan Form'a ve bileşenlerine erişmek istediğiniz için hata alıyorsunuz.

Bence Formlar arası Global değişkenler le Şartlarınızı belirleyip Form un Show unda işlem yapınız.

Kolay Gelsin...