mouse cursorunun yönünü değiştirmek

[programmer76]

Merhaba Arkadaşlar;

Mause cursorunu istediğim gibi ilerletebilecek bir kod arıyorum.. özellikle cursora açı vererek ilerletebilmek istiyorum. Bunu nasıl yapabilirm..

İlginize şimdiden çok teşekkür ederim..

[Master43]

Bir timer nesnesinde

Kod: Tümünü seç

SetCursorPos(X, Y);

kullanırsanız istediğinizi yapabilirsiniz sanıyorum.

[programmer76]

master43 ustam çok teşekkür ederim ilginize.
Maalesef mouse konusu, kaynağı az olan bir konu ben de bu işte amatörüm.. biraz açar mısınız bunu nasıl yapabilirim..timerın eventına nasıl bir şey yazmalıyım ki 90 derecelik bir açı ile mause haraket etsin..

[conari]

Kod: Tümünü seç

var
  Form1: TForm1;
  i:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin

SetCursorPos(i,i);
i:=i+i;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Timer1.Enabled:=true;
i:=1;
end;

[Master43]

Örneğin aşağıdaki kod mouse 20 pixel aşağı kaydırır. Artık gerisi size kalmış,

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Pos: TPoint;
begin
  GetCursorPos(P);
  SetCursorPos(P.X, P.Y + 20);
end;

[programmer76]

conari kardeşim verdiğin örneğe çok teşekkürler, denedim. Yalnız bu kodlar mausun yönünü timerın intervalına bağlı olarak sürekli bir yerdeğişikliği sağlıyor.mouse cursoru sapıtmış bir halde orada burada görünüyor .Benim elde etmek istediğim sonuç ise mousu sağa çektiğimde 90 derecelik bir açıyla mouse un aşağıya gitmesini sağlamak.Bir nevi yön saptırma.Bazen oyunlarda da olur mouse yi sağa çektiğinizde cursor sola yönelir.(180 derecelik sapma).Nasıl yapabilirim??

[conari]

Kusura bakma ama o kadar hazır kod vermiyoruz. Balığın yerini gösteriyoruz. Tutmak sana kalmış.

[programmer76]

master43 ustam dediğin şey epey ufkumu açtı lise yıllarında gördüğüm bir ders; bir noktayı x-y ekseninde 90 derece döndürmek diye bir konu hatırlıyorum.. o formülü kullanarak belki taşıyabilirim.. en kısa zamanda denicem.İlgine çok teşekkürler!! Ama daha kısa bir yolu olmalıydı diye düşünmekten kendimi alamıyorum..