Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Fare pozisyonunu yon tuslariyla degistirmek
#1
Fare pozisyonunu yön tuşlarıyla değiştirmek
Code:
[LIST=1]
[*]procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
[*]Shift: TShiftState);
[*]var pt:TPoint;
[*]begin
[*]GetCursorPos(pt);
[*]case key of
[*]VK_LEFT : SetCursorPos(pt.x-1, pt.y);
[*]VK_UP : SetCursorPos(pt.x, pt.y-1);
[*]VK_RIGHT : SetCursorPos(pt.x+1, pt.y);
[*]VK_DOWN :SetCursorPos(pt.x, pt.y+1);
[*]end;
[*]end;
[/LIST]
Reply
#2
Tesekkurler..
"Bırak yanlızlığı inanç'tan yoksun olanlar hissetsin"
Reply




Users browsing this thread: 1 Guest(s)