Edit de ok tuşlarını nasıl iptal edebilirim.....

[uğur alkan]

formda 1 adet edit kullanıyorum ,ok tuşlarını başka işler yapmak için
kullandım. Spinedit in value degerini spinediti seçmeden arttırıp azaltıyorum. Eğer edit1 seçili ise kursör sürekli saga veya sola kayıyor
ve spineditin içindeki değer değişiyor mesele şu edit1 in yön tuşlarını yakalamasını nasıl engelleyebilirim.

[mkysoft]

Kod: Tümünü seç

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Key in [ord(37)..ord(40)] then Key:=ord(255);
end;

[uğur alkan]

Çok teşekkür ederim....