Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];

Вниз

Создание кнопки на панели в RunTime   Найти похожие ветки 

← →
VDen   (2002-06-19 21:34) [0]

при создании TSpeedButton на TPanel в рантайме SpeedButton почему-то остается невидимым.

t := TSpeedButton.Create(Form1.Panel1);
with FSpeedButton do begin
parent := Form1.Panel1;
Name:="but1"
SetBounds(25, Form1.ClientHeight - 28, 55, 23);
visible:=true;
end;

если Panel1 заменить на Form1, а панель убрать, то все получается... У панели Align=alBottom.

---

← →
AK-74   (2002-06-19 21:49) [1]

В коде синт. и др. ошибки. Вот так должно работать:
procedure TForm1.Button1Click(Sender: TObject);

begin
t := TSpeedButton.Create(Form1.Panel1);
with t do begin
parent := Panel1;
Name:="but1";
SetBounds(25, Panel1.ClientHeight - 28, 55, 23);
visible:=true;
end;
end;

---

← →
VDen   (2002-06-20 09:14) [2]

2AK-47 Просто торопился, FSpeedButton не поменял на t(т.е. в программе у меня все так же как и у вас). Далее, форма находится в одном модуле, а процедура создания кнопки - в другом(по поводу TForm1.Button1Click).

>SetBounds(25, Panel1.ClientHeight - 28, 55, 23);
У панели нет свойства ClientHeight!!!!!

---

← →
Игорь Шевченко   (2002-06-20 09:20) [3]

У любого наследника TControl есть свойство ClientHeight

---

← →
VDen   (2002-06-20 09:34) [4]

Извиняюсь, не подумал. Но кнопка все равно не показывается!

---

← →
MBo   (2002-06-20 09:43) [5]

для начала попробуй
SetBounds(5,5,25,25);

---

← →
VDen   (2002-06-20 10:07) [6]

Cпасибо вам, MBo.

---

← →
MBo   (2002-06-20 10:09) [7]

;)))

---

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

Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.006 c