uzaktan bir projede açık olan formları sırayla kapatma

[CengRecep]

Merhaba arkadaşlar,

Bir projede açık olan formaları kapatmak istiyorum. bu formalrı nasıl tespit edebilirim? Amacım uzaktan socket ile bir programı düzgün olarak kapatmak..

Şimdiden teşekkürler...

[fahrettin]

Eger MDI form kullnaıyorsanız bu tarz bir kod isinize gorur.... Yok MDI bir form yok ise de yine de Application.FindComponent metodu ile isi gorebilirsiniz sanıyorum....

Kod: Tümünü seç

  for VAR_COUNT:=0 to FRM_MAIN.ComponentCount-1 do
  begin
    if (FRM_MAIN.Components[VAR_COUNT].ClassName='Tform') then
       ......
  end;

[CengRecep]

formlar midi değil. main form üzerindeki bir func. açık olan formalrı tespit edip tek tek kapatması gerekiyor. sadece tek bir açık olduğunu bildiğim form için denedim ama nedense kapatmıyor. formalrın hepsi showmodal olarak açılıyor...

ayrıca hızlı cevabınınz için teşekkür ederim

[lazio]

amacın tamamen programı sonlandırmaksa,

Kod: Tümünü seç

Application.Terminate;

yeterli. Formları tek tek kapatmana gerek kalmaz..

[fahrettin]

MDI degilse de dedigim gibi kabaca

Kod: Tümünü seç

for VAR_COUNT:=0 to Application.ComponentCount-1 do 
  begin 
    if (Application.Components[VAR_COUNT].ClassName='Tform') then 
      TForm(Application.Components[VAR_COUNT]).Close;
  end; 

şeklinde bir kod işinizi görür.... Gerekli rotüşları yaparsınız....

[fahrettin]

ayrıca hızlı cevabınınz için teşekkür ederim

41 dakika sonraki cevaba hızlı mı diyorsunuz? Ben de hızlı deyince aynı dakikada mı cevapladım yoksa diye kontrol ettim... Yok canım 41 dakika bu forum standartı açısından hızlı sayılmaz... ancak normal sayılabilir.....

[CengRecep]

biraz fazla oldum sanırım..

Fahrettin bey formların tanımlaması (var FrmMain : TFrmMain;) ilgili formun içinde değil, çağıracağımız formun ilgili procedure nin içinde kullandığım için pointerleri farklı oluyor. yani kapatmak istediğim formun pointer i farklı oluyor. ama formları delphinin yarattığı gibi bıraksam sizin kod çalışıyor...hal boyle olunca kapatamıyorum. App.terminate kullanmak tehlikeli. prog. oracle ile sürekli içli dışlı. düzgün kapatılması gerekiyor..

ilginiz için teşekkür ederim...

[fahrettin]

pek anlamadım....
Mama oracle ile ilişkisi önemli degil. Database bileşeninizi discconect durumuna getirip rahatlıkla programı kapatabilirsiniz....