Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.05.27;
Скачать: CL | DM;

Вниз

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

 
Грифон ©   (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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
1-88557
Сатир
2002-05-16 15:12
2002.05.27
Определение битмапы для нового компонента


1-88463
RaZEr
2002-05-16 06:00
2002.05.27
Как можно быстро поменять местами вкладки (TTabSheet)


1-88554
Ron
2002-05-16 15:05
2002.05.27
TEdit


1-88525
Грифон
2002-05-15 19:29
2002.05.27
ограничить количество компонент на форме


1-88466
Демон
2002-05-17 14:06
2002.05.27
Как отключить СИДЮК и ФЛОПАК????