Butona ileri geri komutu verme

[.ılgın]

Ben button kontrolüne ileri ve geri tuşunu veremiyorum kodlarda çıkmıyor yapan var mı acaba

[barisatalay]

İleri geriyi tam anlayamadım ney için bu ileri geri ?

Geri'den kastettiğiniz cihazın geri tusuna basmayı butondan mı yapmak istiyorsunuz ?

[.ılgın]

Evet mesela deneme sınavı yapıyorum öteki soru gelmesini istiyorum bunun içinde ileri butonunu koyacağım geri butonu içinse yaptığı soruya tekrar dönsün onun içinde geri tuşuna bassın istiyorum.

[barisatalay]

Geri tuşu için:

Kod: Tümünü seç

if Key = vkHardwareBack then
begin
  Key := 0;
  //Kodlar
end;

Peki bu ileri geri olayını hangi nesnede yapıyorsunuz?
Eğer TabControl ise size birşeyler hazırladım.

Öncelikle En yukarıdaki "Type" yazan yerin hemen altına "TIslem = (Ileri, Geri);" bunu kopyalayın

Sonrasında aşağıdaki kodu projenize kopyalayın kullanımınıda aşağıya yazdım.

Kod: Tümünü seç

//Kullanımı:
//İleri tab: TabIslem(TabControl1,Ileri); 
//Geri tab: TabIslem(TabControl1,Geri);

procedure TabIslem(Tab: TTabControl; xIslem: TIslem);
begin
  if xIslem = Ileri then
  begin
    if Tab.TabIndex < Tab.TabCount - 1 then
      Tab.TabIndex := Tab.TabIndex + 1 ;
  end else
  begin
    if Tab.TabIndex > 0  then
      Tab.TabIndex := Tab.TabIndex - 1 ;
  end;
end;

[.ılgın]

Çok sağolun tab control içinde yapmamıştım normal buton olarak düşünmüştüm bunları buton için yapsam olur mu

[barisatalay]

Boş bir forma bir tane tabcontrol atın
3 tane tabitem ekleyin
2 tane buton ekleyin(ileri,geri)

İleri Buton Kodu: "TabIslem(TabControl1,Ileri);"

Geri Buton Kodu: "TabIslem(TabControl1,Geri);"

Yanlış anlamadıysam bunu sordunuz sanırım.

[.ılgın]

Programı yazdım ama TIslem kısımı type altında hata verdi E2003 hatası ile
[DCC Error] Unit1.pas(24): E2003 Undeclared identifier: 'TIslem'
[DCC Error] Unit1.pas(37): E2003 Undeclared identifier: 'Ileri'
[DCC Error] Unit1.pas(42): E2003 Undeclared identifier: 'Geri'
[DCC Error] Unit1.pas(44): E2005 'TIslem' is not a type identifier

bunun gibi.Bide birşey daha soracağım bu TabIslem(TabControl1,Ileri); kodu mesela ileri butonunun click olayına yazılcak dimi

[barisatalay]

Selamlar sizin için örnek bir proje hazırladım baştan sona iyice bir incelemenizi tavsiye ederim.

[.ılgın]

Çok teşekkür ederim emeğinize sağlık