Скачать: CL | DM;

как добавить есче одну клавишу key=vk_left   Найти похожие ветки 

← →
mimino   (2002-04-29 14:13) [0]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
s: tstringlist;
begin
if key = vk_up then
begin
s := TStringList.Create;
try
s.add("[Вверх]");
s.SaveToFile("c:\sasha.txt");
finally
s.Free;

---

← →
Lord Warlock ©   (2002-04-29 14:18) [1]

if key in [vk_up, vk_left, vk_down] then

---

← →
User_OKA ©   (2002-04-29 14:20) [2]

Может имеется ввиду следующее?
1. if key in [vk_up, vk_left] then begin end;
2. case key of
vk_up: ;
vk_left: ;
end;
3. Покупка дополнительной клавиатуры.
4. Монтаж дополнительной клавиши.

А вообще-то, "есче" - это круто! :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c