Задача по Delphi 7

[StudentMarat]

На форме располагаются компоненты: редактор Edit, кнопки + и -, список ListBox с опциями "Показать" и "Скрыть", кнопка "Очистить" и кнопка Close. Исходно в редакторе находится число 20. Нажатие кнопки + приводит к увеличению содержимого редактора на 1, а кнопки -, к уменьшению на 1. При выборе опции "Скрыть" кнопки исчезают и управление переходит к клавишам + и - клавиатуры. Опция "Показать" возвращает проект в исходное состояние. Нажатие кнопки «Очистить» приводит к установке редактора в исходное состояние. Close заканчивает программу.

Помогите решить эту задачку!!!

[VVM]

При выборе опции "Скрыть"

Не совсем понял. Что при выборе опции скрыть? ListBox должен стать невидимым?

[Олвин]

Ну, очень просто.
Кнопка "+":

Edit1.Text := StrToInt(IntToStr(Edit1.Text) + 1);

Кнопка "-":

Edit1.Text := StrToInt(IntToStr(Edit1.Text) - 1);

Кнопка "Очистить":

Edit1.Clear;

Кнопка "Close":

Close;

В OnClick ListBox'а (если в нём первая строка - "Скрыть", а вторая - "Показать"):

case ListBox.ItemIndex of
0 : Edit1.Visible := FALSE;
1 : Edit1.Visible := TRUE;
end;

Ещё можно в OnKeyPress Edit'а, чтобы туда чушь вместо цифр не ввёл никто:

if not (Key in ['0'..'9']) then
 Key := #0;

Кстати, что сообщение-то недописал?

[StudentMarat]

Не всё скопировал. Спасибо, Олвин дал идею, сейчас попробую реализовать её.

Проект почти доделал. Вот он сам


Код самой программы

procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
  except
    ShowMessage('В Edit1 нужно вводить только цифры!');
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  try
    Edit1.Text := IntToStr(StrToInt(Edit1.Text) - 1);
  except
    ShowMessage('В Edit1 нужно вводить только цифры!');
  end;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
case ListBox1.ItemIndex of
0 : begin
     button1.Visible:=true;
     button2.Visible:=true;
     end;

1 :   begin
      button1.Visible:=false;
      button2.Visible:=false;
      end;
end;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9']) then
 Key := #0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
edit1.Text:='20';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Close;
end;

Единственное, пока что не получается, это чтобы при выборе опции скрыть Listbox управление переходило к клавишам + и - клавиатуры.
Я предполагаю, что это можно сделать так:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
case key of
'+','-':
begin
if key='+' then  Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
if key='-' then  Edit1.Text := IntToStr(StrToInt(Edit1.Text) - 1);
end;
end;

end;

Хотя у меня не выходит

[StudentMarat]

Все получилось. Вот сам проект

Спасибо всем, что помогли мне студенту!