shiftstate

[yastik]

Merhaba
TFrame üzerinde Dbgrid bileşenine "dragover" yapıldığında "ctrl" tuşunun durumunu anlamak için nasıl bir yol önerirsiniz. Fonksiyonda "Tshiftstate" parametresi gelmiyor.

Kod: Tümünü seç

procedure TFrAccounting.DBGrid1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
 //ctrl tuşuna basılı mı??
end;

[aslangeri]

s.a.
formun on keydown olayında ctrl tuşuna basıldığını global bir değişkeni set ederek belirlersin.
keyup olayındada aynı değişkeni serbest bırakırsın.
ondragöxxx olayındada bu değişkenin durumuna göre kodlarını yazarsın.
kolay gelsin.

[yastik]

a.s

ben frame üzerinde çalışıyorum. Form başımsız yapmak isityorum

[sadettinpolat]

viewtopic.php?t=4215&highlight=getkeystate

[coskundeniz]

Herhangi bir anda bunu öğrenmek için aşağıda kodu kullanabilirsin

Kod: Tümünü seç

procedure TFrAccounting.DBGrid1DragOver(Sender, Source: TObject; X, 
  Y: Integer; State: TDragState; var Accept: Boolean); 
var
  ShiftState: TShiftState;
  KeyState: TKeyboardState;
begin
  GetKeyboardState(KeyState);
  ShiftState := KeyboardStateToShiftState(KeyState);

  if ShiftState = [ssCtrl] then
  begin
// Yapmak istediğin Kod
  end; 
end;