WM_KEYDOWN da Shift tuşuna basıldığını anlamak

[sadettinpolat]

Kod: Tümünü seç

procedure TForm1.FormShortCut(var Msg: TWMKey; var
Handled: Boolean);
begin
if msg.CharCode = vk_return Then
Begin
  Handled := True;
  if msg.KeyData ???????  Then //shifte basılmışsa
  Begin
    SelectNext(ActiveControl,false,true);
  End
  else
  Begin
    SelectNext(ActiveControl,true,true);
  End;
end;

end;

yukarıdaki kod Enter tuşuna basıldıkça bir sonraki bileşeni aktif kontrol yapıyor yani Tab tuşunu simule ediyor. Benim buna eklemek istediğim Shift + Enter yapıldığında Shift + Tab etkisini verebilmek.

Shift bilgiside msg.KayData da tutuluyor ama bu bilgiye ulaşabilmek için bazı bit işlemleri yapmak gerekiyor. ben tam olarak bu noktayı halledemedim.

bu konuda yardımlarınızı bekliyorum..

formun onkeydown olayında bu iş daha basit bir yoldan halledilebiliyor fakat orası tam olarak benim işimi görmüyor. button1 in üzerindeyken enter tuşuna bastığımda bir sonrali bileşene geçeceğine button1.click olayı çalışıyor....

Kod: Tümünü seç

WM_KEYDOWN  
nVirtKey = (int) wParam;    // virtual-key code 
lKeyData = lParam;          // key data 
 

Parameters

nVirtKey : Value of wParam. Specifies the virtual-key code of the nonsystem key. 

lKeyData : Value of lParam. Specifies the repeat count, scan code, extended-key flag, context code, previous key-state flag, and transition-state flag, as shown in the following table: 

Value	Description
0-15	Specifies the repeat count. The value is the number of times the keystroke is repeated as a result of the user holding down the key.


--> 16-23	Specifies the scan code. The value depends on the original equipment manufacturer (OEM). 


24	Specifies whether the key is an extended key, such as the right-hand ALT and CTRL keys that appear on an enhanced 101- or 102-key keyboard. The value is 1 if it is an extended key; otherwise, it is 0.

25-28	Reserved; do not use.

29	Specifies the context code. The value is always 0 for a 
WM_KEYDOWN message.

30	Specifies the previous key state. The value is 1 if the key is down before the message is sent, or it is 0 if the key is up.

31	Specifies the transition state. The value is always 0 for a WM_KEYDOWN message.

[name]

"msg.KeyData" kullanılarak nasıl yapılır bilmiyorum ama "GetKeyState" function'u kullanılarakda istediğiniz işlem yapılabilir.

Kod: Tümünü seç

procedure TForm1.FormShortCut(var Msg: TWMKey; var
  Handled: Boolean);
begin
  if msg.CharCode = vk_return then
    begin
      Handled := True;

      if (GetKeyState(VK_SHIFT) < 0) then //shifte basılmışsa
        begin
          SelectNext(ActiveControl, false, true);
        end
      else
        begin
          SelectNext(ActiveControl, true, true);
        end;
    end;
end;

[/code]

[sadettinpolat]

yazdığınız cevaptan yola çıkarak bi arama yaptırdım ve karşıma

Kod: Tümünü seç

procedure TForm1.FormShortCut(var Msg: TWMKey; var
Handled: Boolean);
var
Shift : TShiftState;
begin
Shift  := KeyDataToShiftState(msg.KeyData);

if msg.CharCode = vk_return Then
Begin
  Handled := True;
  if SSShift in Shift  Then
  Begin
    SelectNext(ActiveControl,false,true);
  End
  else
  Begin
    SelectNext(ActiveControl,true,true);
  End;
end;

end;

böyle bir çözüm yolu çıktı.

zaten KeyDataToShiftState fonksiyonu

forms.pas unitinde sizin yazdığınz şekilde tanımlanmış

Kod: Tümünü seç

function KeyDataToShiftState(KeyData: Longint): TShiftState;
const
  AltMask = $20000000;
begin
  Result := [];
  if GetKeyState(VK_SHIFT) < 0 then Include(Result, ssShift);
  if GetKeyState(VK_CONTROL) < 0 then Include(Result, ssCtrl);
  if KeyData and AltMask <> 0 then Include(Result, ssAlt);
end;

yardımınız için teşekkür ederim.