Umi ktoś przechwycić komunikat nacisnięcia konkretnego klawisza np: strzałka, albo "a"?
0
0
muszę przyznać że niewiem jak kursora ale liter potrafię.
tworzysz procedure OnKeyDown a wnij wipujesz
if key='a' then
begin
//teraz wpisujesz co sie ma stać jak ktos nacisnie ten klawisz.
end;
0
Jeśli chcesz posługiwać się klawiaturą to daj w onkeydown :
begin
if (key=VK_left) ///left to oznaczenie klawisza (może być right, return, space
then
showmessage('Udalo mi sie');
end;
Jeżeli chcesz przechwycić naciśnięcie klawisza myszki to
dajesz w
onmousedown:
begin
if(X > 0) and (Y > 0) and (X
0
Pochwalony!
To trza zadeklarować komunikat :).
{...}
procedure Komunikat(var Msg: TMessage); message WM_KEYDOWN;
{...}
procedure TForm1.Komunikat(var Msg: TMessage);
begin
ShowMessage(IntToStr(Msg.WParam));
end;
Będzie to robiło iż po naciśnięciu jakiego kolwiek przycisku nastąpi wyświetlenie jego numeru ASCII :)
0
opss.. nie doczytałem dokładnie postu :-)
0
w object inspector masz OnKeyDown :
i piszesz
if key=VK_left then begin
//cos tam piszesz
MessageDlg('strzalka w gore',MtInformation,[mbOK], 0);
end;
mozesz tez podstawic za VK_Left = np Enter czy tam strzalki
if key=#13 ... #13 oznacza enter.
0
<quote> mozesz tez podstawic za VK_Left = np Enter czy tam strzalki/quote]
Mała poprawka: stała opisująca klawisz enter, to nie enter, a VK_RETURN :)