Shift tuşu kısayol olursa

[aslangeri]

s.a. arkadaşlar.
Yazdığım programda kullanıcıya kısayol tanımlama yetkisi verdim.
Program çalışıyor ancak Kısayola "Shift+A" tanımlarsa keydown olayına yazdığım kod çalışıyor birde aktif kontole "A" yazıyor.
Shift yerine "Alt" veya "Ctrl" olursa problem yok.
size bu problemi nasıl çözebilirim.

[emin_as]

Aşagıdakine benzer kodla yapabilirsin.

Kod: Tümünü seç

procedure TForm5.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (key=  ..) and shift in [...] then
  begin
     callprocedure;
     key:=0;   // işlemi yaptik key i sıfırla silebiliriz.
  end;
  .....
end;

Bir ek yapayım, shift ile büyük harf de yazıldıgından formda text girişleri varsa, shift ile kısayol kullanma pek dogru görünmüyor.

[aslangeri]

yazdığım kod zaten yukardakine benzer şekilde.
yani keydown da keyi sıfırlıyorum. ancak tahminimce keypres ve keyup eventlerinden birinde tuşu yakaladığı için ekrana basıyor.
Kısayol tuşlarını ben değil kullanıcılar belirliyor.
CTRL,ALT,SHIFT tuşlarından birini seçiyorlar ancak görünüşe bakılırsa shift tuşunu listeden kaldırmak gerekecek.
yada SHIFT i seçen tuşuna katlanacak.

[conari]

Shift i kaldırmak kesin çözüm,
Shift seçildiğinde Rakamlar ile bağlayarak kısayol tanımlanabilir.
0-9

[emin_as]

Eger bir karakter tuşuna basılırsa, hem keypress hem de keydown eventleri oluşur.
Sanırım edit kutuları onkeypress den gelen bilgiyi yazıyorlar, OnKeypress i bakarak, basılan tuş bir shortcut ise oradan silebilirsin.

[aslangeri]

@conari; Rakamlar kullanıldığı zaman ikinci karakterler basılıyor.
@emin_as;bende öyle olduğunu düşünüyorum ancak onkeypress olayında ShiftState parametresi yok. sadece key var.
bu durumda üçüncü bir değişken kullanmak gerekecek gibi görünüyor.

EK:

Kod: Tümünü seç

  if kisayolabasildi then
  begin
    key:=#0;
    kisayolbasildi:=false;
  end;

kisayolbasildi = Boolean bir değişken. keydown da set ediliyor.
ile sorun çözüldü.

[emin_as]

Evet keypress e sadece yazılabilecek karakterler gönderilir. Eger shift durumu ögrenmek istiyorsan, getkeystate i kullanabilirsin.

Kod: Tümünü seç

if hiword(getkeystate(vk_shift)) <> 0 then 
   ......