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

Вниз

ограничить количество компонент на форме   Найти похожие ветки 

 
Грифон   (2002-05-15 19:29) [0]

Подскажите как можно сделать, чтоб нельзя было разместить больше одного компонента на форме.


 
MBo   (2002-05-16 08:21) [1]

Если хочешь, чтобы сам компонент этого не давал, простой пример

TOneInst=class(TComponent)
constructor Create(AOwner:TComponent);override;
end;

constructor TOneInst.Create(AOwner: TComponent);
var i:integer;
begin
for i:=0 to AOwner.Componentcount-1 do
if AOwner.Components[i] is TOneInst then
raise EInvalidOp.CreateFmt("Only one allowed",[]);
inherited;
end;

procedure TForm1.Button1Click(Sender: TObject);
var oi:TOneInst;
begin
oi:=TOneInst.Create(Self);
end;


 
MBo   (2002-05-16 09:33) [2]

кроме того, можно сделать т.н. singleton, сделав в модуле компонента переменную, которая присваивается в конструкторе, а если не она не nil или счетчик=1, то не создавать объект, предусмотрев обнуление в деструкторе



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

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

Наверх




Память: 0.44 MB
Время: 0.005 c
7-88645
Mulder
2002-03-01 18:12
2002.05.27
Помогите начинающему...


3-88358
Ura
2002-04-29 14:50
2002.05.27
Сообщение


1-88424
VAleksey
2002-05-17 06:28
2002.05.27
*.ini или что-то вроде этого


3-88359
Wildhoney
2002-05-01 04:08
2002.05.27
вопрос


6-88586
bg8
2002-03-14 19:25
2002.05.27
Ошибка при выполнении CGI





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