Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Вниз

подключить необходимый фрейм к Panel   Найти похожие ветки 

 
yakshe   (2002-07-03 18:05) [0]

Уважаемые мастера! В архиве нашел нужный мне вопрос:
Как динамически подключить необходимый фрейм к Panel: TPanel во время выполнения программы?.
Ответ такой:

var f: TFrame2;
begin
f := TFrame2.Create(Panel1);
Panel1.InsertControl(f);
end;

Никак не могу сообразить, как подключить не один, а несколько таких фреймов (по мере необходимости) в разные места TPanel ?
Например нажимаем кнопку - появляется первый фрейм, нажимаем ещё раз - второй и т.д.
Помогите пожалйста.

С Уважением, yakshe.


 
Skier   (2002-07-03 18:09) [1]

>yakshe
Пропиши этот код в событие OnClick и
будет тебе счастье.


 
yakshe   (2002-07-03 18:23) [2]

>Skier
Да я так и сделал, но при втором нажатии выдаёт ошибку "...A component named Frame2 already exists"


 
MBo   (2002-07-03 18:31) [3]

так попробуй
f := TFrame2.Create(Panel1);
f.name:="frame"+inttostr(i);
inc(i);
Panel1.InsertControl(f);


 
yakshe   (2002-07-03 22:02) [4]

>MBo
Спасибо большое. Так работает.
С Уважением, yakshe


 
yakshe   (2002-07-03 22:36) [5]

Извините, но у меня ещё маленький вопрос:
А почему, если попробовать подключить этот фрейм к панели в Disign-Time (чтобы посмотреть как будет смотреться :)) и удалить его , то потом в Run-Time при нажатии кнопки и выполнении приведённого выше кода ничего не происходит?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.15;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.012 c
3-47130
DARS73
2002-06-21 23:05
2002.07.15
Как сделать чтобы при нажатии кнопки программа перестала


1-47445
Катерина
2002-07-03 11:27
2002.07.15
ActivePage в TPageControl


14-47694
Tahion
2002-06-15 08:36
2002.07.15
CheckListBox, у которого ScrollBar-ы Flat стиля


3-47082
Костян
2002-06-20 14:47
2002.07.15
Вычислимое поле во время выполнения


4-47887
KiberArt
2002-05-14 22:27
2002.07.15
SetWindowHookEx для всех потоков в системе.





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский