Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Новичек123 © (2001-12-03 22:51:00)
Приветствую! Необходимо создать небольшой этулятор клавиатуры, нашимаем на кнопку со знаком 5 и в лебел появляется 5, нашимаем на 6 и в лебел 56

ROW (2001-12-11 00:53:00) [1]
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[] у меня панель

Anatoly Podgoretsky (2001-12-09 16:03:00) [2]
Все равно верно, потомуч то согласно вопрос сколько не нажимай на 6 должно проявиться 56 и соответсвенно н=при нажатия на 5 только 5
Остально попытки телепатии по исправлению вероятно неправильно заданного вопроса

{{{{{ (2001-12-08 23:22:00) [3]
TRISTOR все равно лох!!! Вопрос сформулирован верно, если лох, то надолго!!!

Knight (2001-12-07 15:06:00) [4]
2 uuuu
действительно...

Trinistor (2001-12-07 10:35:00) [5]
uuuu не тупи... мне пофигу что оно обнуляется... каков вопрос таков ответ...

uuuu (2001-12-06 23:39:00) [6]
trinistor ты лох при таком коде содержимое лебела обнуляетяся!!!!!

Run (2001-12-04 19:55:00) [7]
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=Label1.Caption+"5";
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Caption:=Label1.Caption+"6";
end;

Trinistor (2001-12-04 15:38:00) [8]
не не так, вот так
{кнопка 5}
procedure TForm1.Button1Click(Sender : TObject);
begin
label1.caption := "5";
end;

{кнопка 6}
procedure TForm1.Button1Click(Sender : TObject);
begin
label1.caption := "56";
end;

%)

TonnyS (2001-12-04 11:34:00) [9]
или вариант:
тоже, OnClick всех кнопок связываешь с одним обработчиком, Tag каждой кнопки устанавливаеш от 0 до MaxKeys:

const MaxKeys = 3; KeysVal : array[0..MaxKeys] of char=("A","B","C","D"); procedure TForm1.Button1Click(Sender : TObject); begin label1.caption := label1.caption + KeysVal[(Sender As TButton).tag]; end;

в такой реализации можно на кнопках писать что угодно (например, "Пробел")
и можно реализовать реакцию на клавиши типа BackSpace.

MBo (2001-12-04 07:13:00) [10]
onclick всех нужных кнопок связываешь с этим обработчиком (в инспекторе или программно)
procedure button1click(sender:tobject);
begin
label1.caption:=label1.caption+tbutton(sender).caption;
end;

Adder (2001-12-04 00:36:00) [11]
ну и что ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »