| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ограничить количество компонент на форме [D5, WinME]

Грифон ©   (2002-05-15 19:29:00) 

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

---

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

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

---

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

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

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;

---

Наверх