tuş kombinasyonları

[BeRFiN]

listbox içinde tuş kombinasyonu kullanmam lazım ama hiçbirşey bulamadım..

örneğin ; Crtl'yi (vk_control) olarak yazıoruz peki Ctrl+Shift+A kombinasyonunu nasıl kullanıcam yardımcı olursanız sevinirim

[Demitri]

onkeydown olayını kullanabilirsin.
tuşların listesini görmek için delphi help sayfasında vritual key codes araması yapabilirsin.
içinde örnekler de mevcut iyi çalışmalar.

[BeRFiN]

keydown u kullanıorum zaten, kodlarıda biliorum ama yapamadım.
CTRL+A için aşağıdakini yazdım onda sorun yok ama CTRL+SHIFT+A için ne yazmam gerekior çözemedim dikkate aldığın için teşekkür ederim.

if (Shift = [ssCtrl]) and (Key=65) then //ctrl+a
begin
asagi;
end;

[rsimsek]

OnKeyDown yerine OnKeyUp kullanılması tavsiye.. Çünkü basılı tutunca OnKeyDown sürekli tetiklenir, oysa OnKeyUp sadece tuşu bırakınca tetiklenir. Yerine göre önemli bir fark

Yazdığın olay/event (OnKeyDown / OnKeyUp) üzerinde F1 yapman yeterliydi, aradığına en kolay ulaşma yolu

Kod: Tümünü seç

if (Shift = [ssShift]) and (Key=65) then
   caption := 'Shift+a';

[BeRFiN]

ilgilenen arkadaşlara tekrar teşekkğr ediorum. yapmam gereken çok basitmiş

Kod: Tümünü seç

if (Shift = [ssCtrl]+[ssShift]) and (Key=VkKeyScan('a'))

araya '+' değilde virgül koyduuum için yapamamışım

[apachi2006]