Консультации Портала - Консультация #85203

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 85203

03.05.2007, 09:19

0.00 руб.

0 1 1

Компьютеры Программирование

Уважаемые эксперты, помогите. Разрабатываю простой эммулятор работы микросхемы "И", по нажатию кнопок ОДИН и НОЛЬ на форме рисуется временная диаграмма.
Вопрос 1: как сделать так, чтобы эти кнопки были не видимые и срабатывали по нажатию 1 или 0 на клавиатуре?
Вопрос 2: как создать массив, состоящий из 0 и 1 при по нажатию данных клавиш (2 массива) ?

Приложение:
рисование по нажатию единицы: procedure TForm1.bOneClick(Sender: TObject);vaR k:integer;s:string;beginif checkbox1.Checked=true then begin if CurY<>y-10 then begin tabcontrol1.Canvas.LineTo(CurX,CurY-10); CurY:=CurY-10; end;tabcontrol1.Canvas.LineTo(CurX+10,CurY); CurX:=CurX+10; mas1[i]:=1; end; if checkbox2.Checked=true then begin if CurY<>y-10 then begin tabcontrol2.Canvas.LineTo(CurX,CurY-10); CurY:=CurY-10; mas2[i]:=1; end; tabcontrol2.Canvas.LineTo(CurX+10,CurY); CurX:=CurX+10; end;

Обсуждение

Неизвестный

03.05.2007, 11:55

общий

это ответ

Здравствуйте, Садовский А.А.!

1. Кнопки делать невидимыми не надо. Если они не нужны, то их и не нужно создавать.
Чтобы сделать у формы обработчик нажатия клавишь, нужно:
1.1. Установить свойство формы KeyPreview = True
1.2. Создать обработчик (двойным кликом мыши) события (на закладке Events свойств формы) OnKeyPress, в нем прописать:
<code>
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
var
k: Integer;
s: String;
begin

case Key of
‘1‘:
begin
Сюда пишете обработчик нажатия на кнопку 1
end;
‘0‘:
begin
Сюда пишете обработчик нажатия на кнопку 0
end;
end;

end;
</code>
2. Второй Ваш вопрос мне не совсем понятен.
Массивы задаются с помощью команды array. Пример:
<code>
Massiv: array[0..100] of Byte;
</code>
Также массивы можно реализовывать с помощью класса TList.

PS
Проверку:
<code>
if checkbox2.Checked=true then begin
</code>
Нужно делать короче:
<code>
if checkbox2.Checked then begin
</code>
В Вашем случае Delphi делает следующее:
1. Проверяет содержимое checkbox2.Checked
2. Сравнивает его с True (результат в виде boolean)
3. Сравнивает результат сравнения с True

Во втором случае Delphi будет делать:
1. Проверяет содержимое checkbox2.Checked
2. Сравнивает его с True

Как видите, второй вариант применять оптимальнее

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.