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




Вниз

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


Новичек123   (2001-12-03 22:51) [0]

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



Adder   (2001-12-04 00:36) [1]

ну и что ?



MBo   (2001-12-04 07:13) [2]

onclick всех нужных кнопок связываешь с этим обработчиком (в инспекторе или программно)
procedure button1click(sender:tobject);
begin
label1.caption:=label1.caption+tbutton(sender).caption;
end;



TonnyS   (2001-12-04 11:34) [3]

или вариант:
тоже, 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.



Trinistor   (2001-12-04 15:38) [4]

не не так, вот так
{кнопка 5}
procedure TForm1.Button1Click(Sender : TObject);
begin
label1.caption := "5";
end;

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

%)



Run   (2001-12-04 19:55) [5]

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

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



uuuu   (2001-12-06 23:39) [6]

trinistor ты лох при таком коде содержимое лебела обнуляетяся!!!!!



Trinistor   (2001-12-07 10:35) [7]

uuuu не тупи... мне пофигу что оно обнуляется... каков вопрос таков ответ...



Knight   (2001-12-07 15:06) [8]

2 uuuu
действительно...



{{{{{   (2001-12-08 23:22) [9]

TRISTOR все равно лох!!! Вопрос сформулирован верно, если лох, то надолго!!!



Anatoly Podgoretsky   (2001-12-09 16:03) [10]

Все равно верно, потомуч то согласно вопрос сколько не нажимай на 6 должно проявиться 56 и соответсвенно н=при нажатия на 5 только 5
Остально попытки телепатии по исправлению вероятно неправильно заданного вопроса



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[] у меня панель




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




Наверх





Память: 0.73 MB
Время: 0.022 c
1-43083           KvORubin              2002-02-26 15:42  2002.03.14  
TRichEdit - ПОМОГИТЕ !!!


1-43051           DJ X                  2002-02-26 05:02  2002.03.14  
Cобытие активации деактивации


6-43122           Olfi                  2001-12-23 15:57  2002.03.14  
Привет народ! Кто-нибудь знеает, как можно соединить модемы и передать чего-нибудь по нему?


7-43197           Darker2               2001-10-28 07:54  2002.03.14  
COM Port. Помощь в начинании.


14-43134          Praco                 2002-01-25 10:19  2002.03.14  
Как правильно говорить : Дельфи или Делфи?