Jak w najprostszy sposób zablokować w oknie Edit przesuwanie kursora strzałkami ?
0
0
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = vk_Left) then //Napisz dla strzlki w prawo (vk_Right)
Key := #0;
end;
Tylko jest taki dylemat. Nie jestem pewien, zy powinienes ten kod napisac ddla zdazenia KeyDown czy KeyPress. Z gory mowie, ze jesli KeyDown nie pomoze, to jak badziesz pisal dla KeyPress to nie bedzie to vk_Left tylko 77(prawo) i 75(lewo).
P.S. po prostu musisz troszke pokombinowac:)--Delphi vs. Visual C++ = ?:?
0
Dzięki - popróbuję :-)