IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Form açılışında bütün query ve tableları otomatik açmak

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- Delphi (https://www.ircforumlari.net/delphi/)

- - Form açılışında bütün query ve tableları otomatik açmak (https://www.ircforumlari.net/delphi/689486-form-acilisinda-butun-query-ve-tablelari-otomatik-acmak.html)

Kaf_Dağı

18 Mart 2015 14:02

Form açılışında bütün query ve tableları otomatik açmak

Kod:

//Onshow olayına 

 for i := 0 to self.ComponentCount - 1 do

 begin

  if Components[i]Is TTable then

  begin

   TTable(Components[i]).open;

   TTable(Components[i]).Active := true;

  end;

  if Components[i]Is TQuery then

  begin

    TQuery(Components[i]).open;

    TQuery(Components[i]).Active := true;

  end;

 end;

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:34.