TabControl nesnesinin Form da öne geldiğini anımsatan....

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
ademiz
Üye
Mesajlar: 151
Kayıt: 30 Tem 2003 02:41
Konum: İstanbul
İletişim:

TabControl nesnesinin Form da öne geldiğini anımsatan....

Mesaj gönderen ademiz »

Arkadaşlar Merhaba

Yeni bir program yazdım.Tek Form üzerine 5 adet üst üste TabControl koydum.Bunların her birini ayrı ayrı Form gibi üzerine nesneler koyarak tasarladım.Sonrada Butonlar yardımıyla örnek " TabControl_YeniKayit.BringToFront " diyerek yeni kayıt sayfasını öne getirerek çalıştırdım.

Buraya kadar her şey normal.Benim sormak istediğim

Mesela TabControl_YeniKayit sayfası önde olduğu zaman F1 klavye tuşuna basınca, hangi if koduyla TabControl_YeniKayit sayfasının önde olduğunu belirteceğim.

Hepinize Saygılar
Kullanıcı avatarı
mege
Admin
Mesajlar: 2360
Kayıt: 05 Şub 2004 04:32
Konum: Beşiktaş
İletişim:

Mesaj gönderen mege »

Kod: Tümünü seç

showmessage(inttostr(TabbedNotebook1.pageindex));
normalde bulmak için ifi kullanırsanız..
if TabbedNotebook1.pageindex = 0 then birincisayfaseçili falan filzn
Ooops :oops: pardon ben eski delphi sürümünü kullandığım için karıştırdım. bu başka component. tabcontrolde bu yok.

tabcontrolde buymuş.. tabcontrol1.TabIndex
En son mege tarafından 24 May 2004 05:58 tarihinde düzenlendi, toplamda 2 kere düzenlendi.
Kullanıcı avatarı
TRSoft
Kıdemli Üye
Mesajlar: 636
Kayıt: 13 Şub 2004 11:39
Konum: Konya
İletişim:

Mesaj gönderen TRSoft »

Size tavsiyem bu işi pagecontrol ile yapmak...
Ancak tabiki bir çok değişik şekilde istediğinizi yapmanın yolu var. Mesala tabcontrollerin tag larını kullanabilirsiniz veya owner kontrolü yapabilirsiniz.. Bilemiyorum daha değişik yönetmler olabilir.

Ama şahsi düşüncem böyle bir yöntem için en iyisi pagecontrol, hangi sayfada olduğunuzu öğrenebilirsiniz.. Tabvisible özelliğini false yaparsanız sayfa başlıklarıda görünmeyeceği için istediğiniz işi yapmış olursunuz..
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır.
HZ. MUHAMMED (S.A.)
Kullanıcı avatarı
sadettinpolat
Moderator
Mesajlar: 2131
Kayıt: 07 Ara 2003 02:51
Konum: Ankara
İletişim:

Mesaj gönderen sadettinpolat »

hocam ilk önce neden birden fazla tabcontrol nesnesi kullandığınızı anlayamadım. tabcontrolun tabs ozelligi işinizi görmüyor mu?

sorunuza gelince bildiğim çok pratik bir yöntem yok ama
yeni kayıt düğmesine basınca HangiTab adlı değişkenin değerine 1 atayın, kayıt düzeltme düğmesine basınca HangiTab değişkenine 2 atayın.

f1 tuşuna basılınca

Case HangiTab of
1: Yeni kayıt;
2: Kayıt düzeltme;

....

else

end

gibi bi yöntem izlenebilir.
Kullanıcı avatarı
ademiz
Üye
Mesajlar: 151
Kayıt: 30 Tem 2003 02:41
Konum: İstanbul
İletişim:

Mesaj gönderen ademiz »

Arkadaşlar TabControl nesnelerini Panel niyetine kullandım.Neden Panel yerine kullandım diye sorarsanız.

Ben aynı zaman tasarımcı olduğum için yaptığım programlarda görselliği hep ön plana alarım.Çünkü arkada harikalar yapsanız bile son kullanıcı görselliğine para veriyor.Niye Panelde görsellik yokmu diye sorarsanız?
Panel bileşeni XP de hoş gözükmüyor fakat TabControl'e değişik bir hava veriyor onun için bunu kullandım.
Ayrıca Tabs özelliğini kullanamam. örneğin bir programın stok sayfasına girerseniz stok sayfasının bileşenlerini Tabs özelliğiyle sayfalar yayabilirsiniz. Ama benimki öyle değil hepsi ayrı ayrı birbirinden farklı sayfalar.

Arkadaşlar söylediklerinizi deneyeceğim sonucunu bildiririm

Saygılar
Kullanıcı avatarı
freeman35
Admin
Mesajlar: 2380
Kayıt: 12 Haz 2003 04:05
Konum: merkez camii yanı

Mesaj gönderen freeman35 »

TabIndex le yapabilirsin.Detay bilgi ve örnek helpte var
Kolay gele
ZAGOR TENAY TÜRK'tür... TÜRK kalacak...
Zoru başarırım, İmkansız zaman alır
FreeMan 35.5

Soru sormaya üşenmiyorsan, sorunun çözümünü yazmaya da üşenme !!!
Kullanıcı avatarı
ademiz
Üye
Mesajlar: 151
Kayıt: 30 Tem 2003 02:41
Konum: İstanbul
İletişim:

Mesaj gönderen ademiz »

Arkadaşlar

TabControl.BringToFront özelliğini bırakıp

TabControl.Visible := false ve true özellikleriyle kodları değiştirince istediğime ulaştım

ilginiz için Teşekkür ederim
Cevapla