| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Динамическое создание/удаление контролов.

SPeller ©   (2002-10-10 14:37:00) 

Есть такой код, который то создаёт, то удаляет контрол:

procedure TfrmMain.Label2Click(Sender: PObj);
begin
if EditBox1 = nil then
EditBox1 := NewEditBox( Panel, [ ] ).SetPosition( 11, 11 ).SetSize( 29, 21 )
else begin
EditBox1.Free;
EditBox1 := nil;
end;
end;

Казалось бы, всё правильно и при щелчке по лэйблу едит должен то появиться то исчезнуть. Однако это не так. После удаления он больше не появляется. Объект создаётся, но контрола не видно. Подскажите, в чём грабли могут быть?

---

SPeller   (2002-10-10 15:29:00) [1]

Спасибо, всё работает

---

blackalex   (2002-10-10 14:57:00) [2]

Компонента просто не прорисовывается. Добавь

EditBox1.Show;

procedure TfrmMain.Label2Click(Sender: PObj);
begin
if EditBox1 = nil then begin
EditBox1 := NewEditBox( Panel, [ ] ).SetPosition( 11, 11 ).SetSize( 29, 21 );
EditBox1.Show ;
end
else begin
EditBox1.Free;
EditBox1 := nil;
end;;
end;

---

Наверх