Главная страница
    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.036 c
4-84829
Akvilon
2003-04-24 18:34
2003.06.26
Возвращаясь к вопросу об уникальности окон


1-84304
DOR
2003-06-15 10:53
2003.06.26
Есть memo1 Edit1 и Memo2 так вот.....


14-84749
Переяслов Григорий
2003-06-06 11:12
2003.06.26
Как вам это?


1-84429
DJ Vano
2003-06-10 01:12
2003.06.26
События для TLabel


1-84213
OlegNOE
2003-06-12 18:48
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский