Jak zrobić żeby w np. memo naciśnięcie dowolnego klawisza powodowało dopisanie jakiegoś określonego znaku ???
Za pomoc z góry dzięki
A i jeszcze żeby ne pomyśleli że nabijam posty zawre drugie pytanie w tym samym poście...
Jak obsługiwać komponent KeySpy ???
cześć
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key=VK_SPACE) then
begin
memo1.Text := 'b';
end;
end;
o to biega ? :-)
Nie zupełnie bo ta procedurka wyświetla "b" tylko po naciśnięciu spacji a ja chcialem żeby się wyświtlała po naciśnieciu obojętnie jakiego klawisza ...
Jak zrobić żeby w np. memo naciśnięcie dowolnego klawisza powodowało dopisanie jakiegoś określonego znaku ???
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Key := #13;
end;
sam sobie zdefuniuj klawisz #13 to ENTER ;) (ASCII)
Nie o to mi chodzi ! Chce żeby naciśnięcie obojętnie jakiego klawisza dodawało zdefiniowany przeze mnie znak.
Np. naciskam "n" a on wyświetla "a"
W onkeydown:
key:=ord('b');
w onkeypress:
key:=#0;
w onkeyup:
key:=0;
coś w tym rodzaju :)
Jak to znów wpisze to po naciśnięciu obojętnie jakiego klawisza nic się nie dzieje ...
Np. obojętnie jaką literke nacisne czy ctfre i tak pokaże się "t".
Np. w OnKeyPress
Key := 'b';
Cokolwiek wciśniesz pojawi się 'b' (analogicznie możesz też dla innych klawiszy np. ENTER z tym, że w OnKeyDown i musisz podać Key := Ord('b');)
Jeżeli chcesz, żeby za konkretne znaki podstawiało jakieś inne dokładnie zdefiniowane to zrób sobie tablicę:
const
Podmien: array ['A'..'C'] of Char = ('q', 'w', 'e');
i podawaj
Key := Podmien[Key];
if (key=VK_up) then
begin
memo1.Text :='góra!!!';
end;