Форум: "Базы";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Вниз

DataModule премущества и недостатки, если они есть конечно???   Найти похожие ветки 

← →
TSV   (2002-03-01 13:49) [21]

Я делаю так:

procedure TMainForm.StreetsItemClick(Sender: TObject);
begin
StreetsForm := TStreetsForm.Create(Application);
StreetsItem.Enabled := False;
end;

А затем:

procedure TMainForm.SpravochnikiItemClick(Sender: TObject);
var
i: integer;
IsStreets, ...: Boolean;
begin
// инициализация
IsStreets := False;
...
// перебор всех открытых дочерних форм,
// которые могли быть открыты из меню "Справочники"
for i := 0 to MDIChildCount - 1 do
begin
if MDIChildren[i].Name = "StreetsForm" then
IsStreets := True;
...
end; // for
StreetsItem.Enabled := not IsStreets;
...
end;

P.S.
Пункт меню StreetsItem является подпунктом SpravochnikiItem.

---

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

Форум: "Базы";
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c