как добавить есче одну клавишу key=vk

← →
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

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

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

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