Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как создать несколько экземпляров немодальных форм? [D5, Win95/98]

Z-Yuri © (2002-10-28 17:55:00)
Есть форма для просмотра таблиц БД. Так, как в базе данных много похожих таблиц (справочников) то просматриваются они одной фоpмой через процедуру:

Procedure ShowTable(Dataset: TDataset, ACaption:String);
Begin
if not assigned(form1) then form1:=TForm1.Create(Application);
with form1 do
begin
if Caption<>ACaption then // Если нужная форма создана то только покажем
begin
Datasource1.Dataset:=Dataset;
Datasource1.Dataset.Open;
end;
Show;
end;
End;

Все работало отлично, пока не понадобилось отобразить одновременно два (три...) справочника. Писать процедуру на каждый справочник и обьявить соотв. кол-во переменных класса ТForm1? Мне это не очень нравится.
Как правильно это сделать?

Z-Yuri (2002-10-28 19:02:00) [1]
Спасибо, попробую!

Андрей Прокофьев (2002-10-28 18:31:00) [2]
оставить только Action:=cafree в onclose;

А переменная Form1 Вам вообще не нужна,
уберите ее из объявлений Unit (var Form1 : TForm);
и все ссылки на нее тоже. и из списка автозагружаемых форм.
(Надеюсь, Form1 - не главная форма :) )

Z-Yuri (2002-10-28 18:24:00) [3]
>Андрей Прокофьев ©. Спасибо, я не додумался до перебора форм.
А что мне тогда делать с
form1:=nil в обработчике OnDestory.
Или оставить только Action:=cafree в onclose?

Андрей Прокофьев (2002-10-28 18:04:00) [4]
Что-то в этом роде
Procedure ShowTable(Dataset: TDataset, ACaption:String);
var
xF : TForm1;
i : Integer;
Begin
for i := 0 to Screen.FormCount - 1 do
if Screen.Forms[i].Caption = ACaption then
begin
Screen.Forms[i].Show;
Exit;
end;
xF := TForm1.Create(Application);
xF.Caption := ACaption;
xF.Datasource1.Dataset:=Dataset;
xF.Datasource1.Dataset.Open;
xF.Show;
end;

Anatoly Podgoretsky (2002-10-28 18:01:00) [5]
Переменные совсем не нужны, запускай по Show, уничтожай в OnClose

Наверх

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