19 Ağustos 2014 Salı

Delphi Formdaki nesnelerde gezinti

Merhabalar,

Zaman zaman lazım olan ve çabuk unutulan bir işlemi unutmamak için paylaşmak istiyorum.

Amacımız formdaki nesneler arasında taborder'larına göre yön tuşlarıyla veya tab tuşuyla gezinti.

1-) Formun KeyPreview özelliğini True yapınız

2-) Formun Object Inpector'den "ActiveControl" seçeneğinde ilk olarak hangi nesnede olmasını istiyorsanız onu seçin.

3-) Formun "OnKeyDown" eventine aşağıdaki kodu yazınız.

if (Key = VK_RETURN) or (Key = VK_DOWN) then SelectNext(ActiveControl,True,True);
if Key = VK_UP then SelectNext(ActiveControl,False,True);