Delphi : Basılan Düğmeye Göre Kod Satırlarını İşletmek

Birden fazla düğmenin olduğu mesaj pencerelerinde her buttona klanılması farklı kodların işletilmesini sağlayacaktır (Zaten öyle olmasa birden fazla button oluşturmak manasız olurdu). Methodun hangi düğmeye basıldığını gösterebilmesi aktarıldığı tam sayı tipli değişken sayesinde gerçekleşebilmektedir. Bu yüzden, bu methoddan geriye dönen değer kesinlikle bir değişkene aktalmalıdır. Değişkenin değeri dallanmaya (if veya case) tabi tutularak, basılan düğmeye göre istenilen kod işletilebilir. Aşağıda bu olay örneklendirilmiştir.

clip_image002

Programı çalıştırıp button kontrolüne tıklarsanız, aşağıdaki ekran görüntüsüyle karşılaşırsınız. Bu pencerede her değişik düğmeye tıklamanız farklı bir kod işletmenizi sağlayacaktır.


clip_image003

Basılan düğme değerlerine ait tablo aşağıda verilmiştir. Aslında tek yapmanız gereken mr” karakterlerini düğme isminin başına eklemekten ibaret olacaktır.

Basılanğme Açıklama

mrYes ‘Yes’ button tıklandı

mrNo ‘No’ button tıklandı

mrOK ‘OK’ button klandı

mrCancel ‘Cancel’ button tıklandı

mrAbort ‘Abort’ button tıklandı

mrRetry ‘Retry’ button tıklandı

mrIgnore ‘Ignore button tıklandı

mrAll ‘All’ button tıklandı

mrNoToAll ‘No to all’ button tıklandı

mrYesToAll ‘Yes to all button tıklandı

mrHelp Help’ button tıklandı

Basılan düğme yukarıdaki değerini değişkene aktarmaktadır. Daha sonra aktarılan değer kıyaslanarak, işletilmesi gereken kodlar o bloğa yazılmaktadır.

Basılan düğmelerin tam sa değer karşılıkları da mevcuttur. Aşağıda bu değerlerde verilmektedir.

Basılan Düğme Sayısal Karşığı

mrYes = 6

mrNo = 7

mrOK = 1

mrCancel = 2

mrAbort = 3

mrRetry = 4

mrIgnore = 5

mrAll = 8

mrNoToAll = 9

mrYesToAll = 10

Bu durumda yukarıda yazmış olduğumuz kod satırlanı aşağıdaki şekilde değiştirebilirsiniz. Sayısal değerleri hafızanızda tutamayacağınız için, ilk karşılıklarıyla işlem yapmanız daha kolay olacaktır. Ama tercih tamamen sizlere kalmıştır.


clip_image005

Yine aynı şekilde kladığınız ğmeye ait kod bloğunu kolaylıkla işletebilirsiniz.

1 Star2 Stars3 Stars4 Stars5 Stars (No Ratings Yet)
Loading ... Loading ...

Bu yazı 8 Şubat 2010 tarihinde Aytaç Cici tarafından Delphi kategorisi altına yazılmış ve 45 views defa okunmuş.

Tepki verin!

Aşağıdaki kutucuğa e-posta adresinizi girin sitemize yeni eklenen içerikten haberdar olun...

RSS okuyucu ile takip edin...

    Programlama