Форум: "KOL";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
ВнизДинамическое создание/удаление контролов. Найти похожие ветки
← →
SPeller (2002-10-10 14:37) [0]Есть такой код, который то создаёт, то удаляет контрол:
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;
Казалось бы, всё правильно и при щелчке по лэйблу едит должен то появиться то исчезнуть. Однако это не так. После удаления он больше не появляется. Объект создаётся, но контрола не видно. Подскажите, в чём грабли могут быть?
← →
blackalex (2002-10-10 14:57) [1]Компонента просто не прорисовывается. Добавь
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;
← →
SPeller (2002-10-10 15:29) [2]Спасибо, всё работает
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2003.06.26;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.029 c