Текущий архив: 2003.02.13;
Скачать: CL | DM;

Вниз

Кнопки...   Найти похожие ветки 

← →
Gerda ©   (2003-02-04 19:06) [0]

Дарова Мастерам.
Как создавать любое количество к нопок во время выполнения программы ??
Заранее благодарен.

---

← →
gsu ©   (2003-02-04 19:11) [1]

bs: array [1..N] of TButton

...

bs[1]:=TButton.Create(Form1);
bs[1].Parent:=Form1;
bs[1]. ...

---

← →
Gerda ©   (2003-02-04 20:04) [2]

Почему при:
//------------------------------------------
type TForm1 = ...
procedure ButtonsClick(Sender: TObject);
.....
bs[1].OnClick:=ButtonsClick;
......
procedure TForm1.ButtonsClick(Sender: TObject);
begin
// сюда проц не доходит ??
end;
//------------------------------------------

---

← →
Shadow ©   (2003-02-04 20:08) [3]

бывает ...

---

← →
Gerda ©   (2003-02-04 20:09) [4]

:)

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.016 c