VPF::кнопки - Форум программистов

GLeBaTi

Дата 19.3.2010, 15:21 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 1.2.2008
Где: г.Чебоксары

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

У меня есть форма, пользователь вводите определенное число и нажимает кнопку.
Как сделать так, чтобы при нажатии на кнопку, выводились такое количество кнопок,которое ввел юзер

пример:
пользователь вводит "4" -> появляется 4 кнопки

Guedda

Дата 19.3.2010, 15:25 (ссылка)

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

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

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

Надо инициализировать и вывести столько раз метод создания кнопки TButtonCreate
Это не центр помощи, поэтому здесь не дают готовые примеры. Покажите, что у Вас не получается, мы поможем.

--------------------

Ll 2

GLeBaTi

Дата 19.3.2010, 15:36 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 1.2.2008
Где: г.Чебоксары

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

Код


var
    buttons : array of TButton;
    i:integer;

BEGIN
   SetLength(buttons,2);
   for i:=1 to 2 do
   begin
        //здесь надо вывести кнопку (как ?)
   end;
END;

Это сообщение отредактировал(а) GLeBaTi - 19.3.2010, 15:38

Данкинг

Дата 19.3.2010, 15:55 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

Как-то примерно так:

Код


for i:=1 to 2 do
   begin
        button[i]:=TButton.Create(self);
   end;

И далее указываешь параметры своей кнопки: положение, ширину и т.п.

--------------------

There's nothing left but silent epitaphs.

pseud

Дата 19.3.2010, 16:45 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Цитата(GLeBaTi @ 19.3.2010, 15:21

)

пользователь вводит "4" -> появляется 4 кнопки

бросай на форму Edit1, Button1, Panel1 и в обработчик нажатия кнопки пиши:

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  c: TControl;
  iCount: Integer;
  i: Integer;
begin
  while Panel1.ControlCount > 0 do
    Panel1.Controls[0].Free;

  iCount := StrToInt(Edit1.Text);

  for i := 1 to iCount do
    with TButton.Create(Self) do
    begin
      Caption := 'Кнопка ' + IntToStr(i);
      Left := 40;
      Top := i * 40;
      Parent := Panel1;
    end;
end;

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

GLeBaTi

Дата 19.3.2010, 16:46 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 129
Регистрация: 1.2.2008
Где: г.Чебоксары

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

Спасибо !)

Это сообщение отредактировал(а) GLeBaTi - 19.3.2010, 16:52

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