Создание кнопки на панели в 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);

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

;)))

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