Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.06.26;
Скачать: CL | DM;

Вниз

Динамическое создание/удаление контролов.   Найти похожие ветки 

 
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 вся ветка

Текущий архив: 2003.06.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.017 c
1-84156
lipskiy
2003-06-08 02:20
2003.06.26
Запуск программы с параметром.


1-84245
Совсем новичок
2003-06-08 22:09
2003.06.26
Как присоединить аттачмент в IdSMTP?


9-83844
[Baradoo]
2003-01-14 21:38
2003.06.26
Небольшое демо...


3-84016
Avreliy
2003-05-30 16:30
2003.06.26
---|Ветка была без названия|---


1-84086
Михайлов Антон
2003-06-07 02:30
2003.06.26
Уникальное имя