formlar arası geçiş

[naklov67]

selam arkadaşlar... bi projem var ve 16 tane form var... bu formlar arasında geçişler çok çeşitli şekilde yapılabiliyor....

benim sorunum; bu formlar arasında geçiş yaparken kullanılan formu aktif edip diğerlerini pasif yapmak istiyorum...
ama bi türlü kombine edemedim... birinden diğerine giderken enable=false yapıyorum ama geri gelirken eski form true edilmiyor.. bir iki tane form olsa hallederim ama 16 form olunca sorun oluyor...

acaba bu sorunumu nasıl çözebilirim... boolean değişkenler kullanarak denedim ama çok fazla form olduğundan işler karıştı...

yardım edenlere allah razı olsun.. ne diyim

[mepc]

Kod: Tümünü seç

For I := 0 To application.ComponentCount-1 Do
      Begin
      If ((application.Components[I] is Tform) And (application.Components[I] as Tform).enabled=true)) Then
      begin

         try
         (application.Components[I] as Tform).enabled:=false;
         except
         end;
         
      end;
      end;

kodu ile önce tüm enabled olan formları false yaparsın daha sonra istediğin formu enabled yaparsın

[naklov67]

sevgili kardeşim mepc. dediğini anladım.. ama bunu yapınca formlar arasında gidip gelirken sorun olmaz mı?

çünkü programda formlar arasında defalarca gidip gelinecek...

[naklov67]

ayrıca ben bunu hangi olaya yazmalıyım?

[schumi]

Birader öyle yapacak yerde

formx.show yerine
formx.showmodal

kullanırsan olay hallolacaktır. Enable disable ile uğraşmazsın en azından. Bu da aynı şeyi yapıyor bir form aktifken diğerlerini pasif yapıyor.

[naklov67]

eyvalla arkadaşlar bunları deneyeceğim
yardımlar için teşekkürler

[aslangeri]

s.a.
peki showmodal formlar arasında geçişte sıkıntı çıkarmazmı.
a formundan b yi
b den c yi
c den a yı
show modal ile çağırdığınız zaman
sıkıntı olacaktır.
gerçi form yapınız nasıl bilmiyorum ama
sadece aklınızda bulunsun istedim.
kolay gelsin.

[naklov67]

Dün deneme fırsatım olmadı... önerin için teşekkürler..
aynen dediğin gibi
a dan b ye
b den c ye
c den de a ya
geçişler yapılabiliyo...
bunun bi yolu var mı? sizin bildiğiniz...
showmodel olacak mı bunun için?...
gerçi deneyeceğim bu gece ama.... bilen biri varsa...