RSS

Fare pozisyonunu yön tuşlarıyla değiştirmek

17 Nis

Bu derste farenin kordinatlarını okuyarak yön tuşlarıyla konrol etmeyi öğrenelim.

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;
 
Yorum yapın

Yazan: 17 Nisan 2011 in Genel

 

Etiketler: , , , ,

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

 
%d blogcu bunu beğendi: