Delphi : Basılan Düğmeye Göre Kod Satırlarını İşletmek
Birden fazla düğmenin olduğu mesaj pencerelerinde her buttona tı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 aktarılmalı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.
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.
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 Düğme Açıklama
mrYes ‘Yes’ button tıklandı
mrNo ‘No’ button tıklandı
mrOK ‘OK’ button tı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 sayı değer karşılıkları da mevcuttur. Aşağıda bu değerlerde verilmektedir.
Basılan Düğme Sayısal Karşılığı
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ırlarını 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.
Yine aynı şekilde tıkladığınız düğmeye ait kod bloğunu kolaylıkla işletebilirsiniz.
Bu yazı 8 Şubat 2010 tarihinde Aytaç Cici tarafından Delphi kategorisi altına yazılmış ve 45 views defa okunmuş.





