Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизКак создать несколько экземпляров немодальных форм? Найти похожие ветки
← →
Z-Yuri (2002-10-28 17:55) [0]Есть форма для просмотра таблиц БД. Так, как в базе данных много похожих таблиц (справочников) то просматриваются они одной фо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? Мне это не очень нравится.
Как правильно это сделать?
← →
Anatoly Podgoretsky (2002-10-28 18:01) [1]Переменные совсем не нужны, запускай по Show, уничтожай в OnClose
← →
Андрей Прокофьев (2002-10-28 18:04) [2]Что-то в этом роде
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;
← →
Z-Yuri (2002-10-28 18:24) [3]>Андрей Прокофьев ©. Спасибо, я не додумался до перебора форм.
А что мне тогда делать с
form1:=nil в обработчике OnDestory.
Или оставить только Action:=cafree в onclose?
← →
Андрей Прокофьев (2002-10-28 18:31) [4]оставить только Action:=cafree в onclose;
А переменная Form1 Вам вообще не нужна,
уберите ее из объявлений Unit (var Form1 : TForm);
и все ссылки на нее тоже. и из списка автозагружаемых форм.
(Надеюсь, Form1 - не главная форма :) )
← →
Z-Yuri (2002-10-28 19:02) [5]Спасибо, попробую!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c