Форум: "Потрепаться";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Внизкак добавить есче одну клавишу 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 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.06.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c