Форум: "Система";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

Приветствую! Необходимо создать небольшой этулятор клавиатуры, нашимаем на кнопку со знаком 5 и в лебел появляется 5, нашимаем на 6 и в лебел 56   Найти похожие ветки 

← →
ROW   (2001-12-11 00:53) [11]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (key>=96)and (key<=105)then begin
vv[x].Color:=clWhite;
vv[x].Caption:=vv[x].Caption+inttostr(key-96);
end;

End;

Из моей проги
работает на все 100
использует боковые цифры vv[] у меня панель

---

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

Форум: "Система";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.005 c