Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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
1-84402
kull
2003-06-09 11:09
2003.06.26
FormatDateTime...


14-84702
Шишкин Илья
2003-06-04 22:22
2003.06.26
Как получить информацию о коннекте к интернету?


1-84079
snower
2003-06-08 00:40
2003.06.26
передать в dll


1-84386
killer
2003-06-05 17:08
2003.06.26
Можно ли какнибудь в одном файле сохранить текст фотографии?


1-84089
sapsi
2003-06-10 12:36
2003.06.26
Изменение вида курсора





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский