Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.007 c