Hej!
Moim celem jest napisanie banalnego programu, który po kliknięciu SPACE będzie pobierał pozycję kursora. Myślałem, że to będzie proste, ale niestety, program nie reaguje, gdy okno jest nieaktywne. Nie chce wymuszać aktywności konta, gdyż ten program ma pozwalać na swobodę użytkownika.
Source
procedure TForm1.button1KeyPress(Sender: TObject; var Key: Char);
var
pos:Tpoint;
begin
GetCursorPos(pos);
if key=#32 then edit1.Text:=inttostr(pos.x) ;
end;
Sorki, ale moje programowanie jest jeszcze na wysokim poziomie albo raczej nigdy wcześniej nie programowałem programów tego typu, więc nie za bardzo wiem co to hook ani jak go założyć. czy mógłby mi ktoś to jasno wytłumaczyć (nie chce gotowców, bo planuję kilka programów tego typu).
Trochę poczytałem i chciałem założyć takie coś:
Delphi 
RegisterHotKey(Form1.Handle, VK_SPACE);
jednak to coś średnio działa :(
edit
Przed chwilą znalazłęm takie coś
RegisterhotKey(Form1.Handle, $0001, 0, vk_space)
Tym razem jednak w ogóle nie działa nawet w aktywnym oknie
micosa97 napisał(a)
procedure TForm1.button1KeyPress(Sender: TObject; var Key: Char);
Nie wiesz dlaczego nie działa? Bo oprogramowałeś wciśnięcie klawisza przycisku Button1, a nie formularza; To będzie działać jedynie wtedy, gdy aktywny jest przycisk i wciśniesz klawisz o kodzie #32, czyli Spację (czyli tak jakbyć kliknął LPM na nim);
Zrób to w zradzeniu OnKeyDown formularza w ten sposób:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
pntMouse: TPoint;
begin
if Key = VK_SPACE then
begin
GetCursorPos(pntMouse);
edtMousePos.Text := 'X: ' + IntToStr(pntMouse.X) + ', Y: ' + IntToStr(pntMouse.Y);
end;
end;
Będzie działać, ale tylko wtedy, gdy formularza będzie aktywny; Jeżeli zależy Ci na tym, by odczytywać pozycje myszy bez względu na to, czy okno aplikacji jest aktywne czy nie, musisz założyć hook'a na klawiaturę;
W załączniku masz przykład aplikacji wykorzystującej powyższy kod, która działa w 100%;
Furious Programming napisał(a)
micosa97 napisał(a)
procedure TForm1.button1KeyPress(Sender: TObject; var Key: Char);
Nie wiesz dlaczego nie działa? Bo oprogramowałeś wciśnięcie klawisza przycisku
Button1, a nie formularza; To będzie działać jedynie wtedy, gdy aktywny jest przycisk i wciśniesz klawisz o kodzie#32, czyli Spację (czyli tak jakbyć kliknął LPM na nim);Zrób to w zradzeniu
OnKeyDownformularza w ten sposób:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
pntMouse: TPoint;
begin
if Key = VK_SPACE then
begin
GetCursorPos(pntMouse);
edtMousePos.Text := 'X: ' + IntToStr(pntMouse.X) + ', Y: ' + IntToStr(pntMouse.Y);
end;
end;
Będzie działać, ale tylko wtedy, gdy formularza będzie aktywny; Jeżeli zależy Ci na tym, by odczytywać pozycje myszy bez względu na to, czy okno aplikacji jest aktywne czy nie, musisz założyć hook'a na klawiaturę;
W załączniku masz przykład aplikacji wykorzystującej powyższy kod, która działa w 100%;
Oczywiście, jest to dla formularza :). Wcześniej programowałem dla buttona i zapomniałem zmienić.