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

Вниз

Создание компонент   Найти похожие ветки 

 
M@XIDROM   (2002-02-01 15:32) [0]

Народ, мне нужно чтобы юзеру предоставлялась возможность выбрать любое, заранее неизвестное, количество компонент, скажем TPanel, на форме. Может 2, может 100 или 200. Неизвестно. Как решить эту задачу??? Спасибо.


 
yaJohn   (2002-02-01 16:05) [1]

>юзеру предоставлялась возможность выбрать любое
rech idet o komponente, a ne o application? V smisle user - eto programmist? ETO OSKORBLENIE!!!
;)))

Esli tak, to vot IMHO prosteyshiy sposob:
TMyItem = class(TCollectionItem)
.....
published
property Target: TComponent read.........
.....
end;
----------------------
TMyCollection = class (T OwnedCollection)
.......
end;
----------------------
TMyComponent = class (TComponent)
published
property Items: TMyCollection...........
end;

Samo soboy perepisat" constructor/destructor dlia vseh i pr.
Obrashau vnimanie na jirnoe videlenie. Ya s etim namuchalsia v svoe vremia.... Pochti sobstvennuu T OwnedCollection = class (TCollection) napisal %)


 
drpass   (2002-02-01 16:39) [2]

А если тебе нужно, чтобы на форме появлялось различное количество компонент, заранее неизвестное, то можно примерно так:
var
a:array[0..300] of TPanel;
...

for i:=0 to NumberOfPanel do begin
a[i]:=TPanel.Create(Self);
with a[i] do begin
Parent:=Self;
... //какие еще нужны параметры, например, положение на форме
Left:=10;
Top:=(i+1)*20;
end;
end;


 
M@XIDROM   (2002-02-02 18:09) [3]

А может есть какой другой способ создать THUMBNAILS(уменшиные картинки)



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

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

Наверх





Память: 0.45 MB
Время: 0.007 c
1-57063
SLAYER1
2002-02-01 16:59
2002.02.18
Помогите плиз как из моей программы запустить существующий файл Excel с диска


1-57120
Dinara
2002-02-03 09:28
2002.02.18
Настройка Delphi


4-57242
Shark
2001-12-18 15:25
2002.02.18
HELP!


1-57127
KvORubin
2002-02-02 20:20
2002.02.18
Приветствую!!! Помогите!!!


1-57141
MystiX
2002-02-03 20:26
2002.02.18
Заголовок окна





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