tabsheet1.click veya show olayını nasıl kullanırım

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
sako
Üye
Mesajlar: 477
Kayıt: 11 Haz 2003 02:40
Konum: ERZURUM

tabsheet1.click veya show olayını nasıl kullanırım

Mesaj gönderen sako »

PageControl nesnesi içerisinde bulunan TabSheet1.TabSheet2..

sayfalarından aktif olanının click olayını veya show olayını nasıl çalıştırabilirim.

mesela TabSheet1Show(sender); şeklinde komut çalışıyor ama aktif sheet için bunu yapamadım.
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
Kullanıcı avatarı
White Rose
Üye
Mesajlar: 726
Kayıt: 06 Tem 2005 09:41
Konum: Güneyden
İletişim:

Mesaj gönderen White Rose »

PageControl.ActivePage:=Tabsheet1;

ile istediğiniz tabı seçebilirsiniz
sako
Üye
Mesajlar: 477
Kayıt: 11 Haz 2003 02:40
Konum: ERZURUM

Mesaj gönderen sako »

Tamamda yapmak istediğim o değilki. O an hangi sheet aktif ise onun onshow olayını kullancam
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
palandoken
Üye
Mesajlar: 151
Kayıt: 16 Eki 2006 10:43
Konum: ERZURUM

Mesaj gönderen palandoken »

PageControl'de 3 Tab olsun.

Kod: Tümünü seç

if PageControl1.ActivePageIndex = 0 then
   Button1Click(Sender);//TabSheet 1 deki bir buton

if PageControl1.ActivePageIndex = 1 then
   Button2Click(Sender);//TabSheet 3 deki bir buton

if PageControl1.ActivePageIndex = 2 then
   Button3Click(Sender);//TabSheet 3 deki bir buton
Bu arada avatarın güzelmiş.Nerden aldın... :lol:
akıllanma , aklını başına toplama , toparlanma , kendisini derleme bu dünyaya ait bir vazife.
ahirette nasıl olsa aklın başına gelecek.
sako
Üye
Mesajlar: 477
Kayıt: 11 Haz 2003 02:40
Konum: ERZURUM

Mesaj gönderen sako »

İşte bunu if ile değilde tek bir kontrol ile yapmak daha kullanışlı olur diye düşünmüştüm. Ama heralde başka şansımda kalmadı. Teşekkür ediyorum herkese...
palandoken yazdı: Bu arada avatarın güzelmiş.Nerden aldın... :lol:
Avatarım çalıntı çaktırma :oops:
DOĞUNUN SINIR TAŞI ERZURUM'UN DADAŞ'I
EFE'Sİ VAR İZMİR'İN EĞİLMEZ TÜRK' ÜN BAŞI
palandoken
Üye
Mesajlar: 151
Kayıt: 16 Eki 2006 10:43
Konum: ERZURUM

Mesaj gönderen palandoken »

Bence uğraşma.Bu şekilde kullan.

Bir avatar iki Erzurum'luyada yeter. :wink:

Erzurum'un neresinden.Görüşelim.
akıllanma , aklını başına toplama , toparlanma , kendisini derleme bu dünyaya ait bir vazife.
ahirette nasıl olsa aklın başına gelecek.
Kullanıcı avatarı
unicorn64
Üye
Mesajlar: 919
Kayıt: 04 Nis 2006 08:56
Konum: yine yeniden Ankara ^_^

Mesaj gönderen unicorn64 »

sako yazdı:İşte bunu if ile değilde tek bir kontrol ile yapmak daha kullanışlı olur diye düşünmüştüm. Ama heralde başka şansımda kalmadı. Teşekkür ediyorum herkese...
bu yapıdaki if lerin alternatifi case yapısı değil midir? onu kullan istersen. gerçi değişen çok birşey olmayacak ama en azından başka bir şans :lol:
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Mesaj gönderen aslangeri »

s.a.
bir yöntemde tüm tabllar için aynı procedureyi kullanman.
proceudreyi çağırırken sender yerine tabshet in adınıda göndermen lazım.
procedure içindede (sender as ttabsheet) diyerek kullanman lazım.
kolay gelsin
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Cevapla