VPF::[Delphi 7] Использование компонентов Standart

DRAGON88

Дата 16.4.2009, 09:10 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) DRAGON88 - 16.4.2009, 10:19

DRAGON88

Дата 16.4.2009, 10:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

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

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

Код


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;

Хотя у меня не выходит. Кто-нибудь знает, как это можно сделать

Это сообщение отредактировал(а) DRAGON88 - 16.4.2009, 10:26

Присоединённый файл ( Кол-во скачиваний: 2 )

______.rar 175,71 Kb

Hang

Дата 16.4.2009, 11:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3

Допиши:

Код


procedure TForm1.KeyPlusMinus(Key: Word);
begin
  if ListBox1.ItemIndex=1 then
  begin
    if key=109 then
      Edit1.Text := IntToStr(StrToInt(Edit1.Text) - 1);
    if key=107 then
      Edit1.Text := IntToStr(StrToInt(Edit1.Text) + 1);
  end;
end;

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  KeyPlusMinus(key);
end;

правда процедуру KeyPlusMinus надо будет еще наверно вызывать из других событий компонентов

Это сообщение отредактировал(а) Hang - 16.4.2009, 11:06

DRAGON88

Дата 16.4.2009, 11:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

Я если честно не очень понимаю, как можно вызвать процедуру KeyPlusMinus. Если можно можешь сбросить уже готовый проект ну или объясни как это делается. smile

Это сообщение отредактировал(а) DRAGON88 - 16.4.2009, 11:40

Hang

Дата 16.4.2009, 13:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 77
Регистрация: 16.12.2007
Где: Вологда

Репутация: 1
Всего: 3

Да пожалуйста. Лови....

Процедуру KeyPlusMinus(Key: Word) я объявил здесь (смотри 16 строку):

Код


type
  TForm1 = class(TForm)
    Edit1: TEdit;
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure KeyPlusMinus(Key: Word);
    procedure ListBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Это сообщение отредактировал(а) Hang - 16.4.2009, 13:24

Присоединённый файл ( Кол-во скачиваний: 2 )

112.rar 177,46 Kb

DRAGON88

Дата 16.4.2009, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 20.11.2008

Репутация: нет
Всего: нет

OK, Thank you very much, Hang. Ты хороший программист smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »