Tabsheet seçimi

[r_korkmaz44]

S.a.;
Arkadaşlar Tabsheetle alakalı bir şart yazıyom. Aşağıdaki kodu kabul ediyo.

Kod: Tümünü seç

if PageControl1.ActivePage = TabSheet1 then
begin
.....
.....
end;

Ama ikinci şarta gelince şart çalışmıyo

Kod: Tümünü seç

if PageControl1.ActivePage = TabSheet2 then
begin
.....
.....
end;

Acaba yanlışım nerede anlamadım gitti. Şimdiden tşk arkadaşlar

[palandoken]

A.S.Kardeşim.

Kod: Tümünü seç

if PageControl1.ActivePageIndex = 0 then 
begin
.....
.....
end;

if PageControl1.ActivePageIndex = 1 then
begin
.....
.....
end;

TabSheet'lerin pageIndex'lerine dikkat et ama.
Kolay gelsin.

[aslangeri]

s.a.
bu kodu nerde yazıyorsun.

[palandoken]

s.a.
bu kodu nerde yazıyorsun.

Sorunuz kimeydi acaba?

[conari]

Tabsheet2 diye bir nesne yoktur.

[aslangeri]

Sorunuz kimeydi acaba?

sorum sorunun sahibine idi.
verdiği kodları hangi olaya yazdığını merak ettim. belki olay tetiklenmiyor dur.

[r_korkmaz44]

Bunu ben buttonun Click kısmına yazıyorum. Yalnız yabancı form sayfalarında bulduğum kodlarda

Kod: Tümünü seç

if PageControl1.ActivePage = TabSheet2 then

şeklinde yer alıyordu.

Kod: Tümünü seç

if PageControl1.ActivePageIndex = 1 then

yazdım olmadı

Amacımda şu:

Tabsheet1 TabSheet2
Maskedit1 Maskedit2 Maskedit3 Maskedit7 Maskedit8 Maskedit9
Maskedit4 Masskedit5 Maskedit6 Maskedit10 Maskedit11 Maskedit12

burada Maskedit1 i maskedit7 ye eşitleme, Maskedit2 i Maskedit8 e eşitliyecem. Bunun içinde döngü hazırladım. İlk Tabsheet ten diğer Tabsheet lere eşitledim. Ama mesala Tabsheet2 deki değerleri diğer tabshettlere eşitleyince sorun çıktı.

[aslangeri]

tabshet2 ile karşılaştırma yaptığın bölüme breakpoint koy.
programı çalıştır. program o satıra gelince duracaktır.
orda pagecontrolun activepaege inin özelliklerine bak. tabsheet2 mi seçili.