OberonAR писал(а):А если сделать все таки 1 форму, а на ней pagecontrol с вкладками под каждую таблицу и при вызове делать visible:=true только нужной вкладке?
Тогда уж лучше пользоваться фреймами
Модератор: Модераторы
Padre_Mortius » 11.02.2012 23:13:05
OberonAR писал(а):А если сделать все таки 1 форму, а на ней pagecontrol с вкладками под каждую таблицу и при вызове делать visible:=true только нужной вкладке?
OberonAR » 12.02.2012 00:07:40
leo_bsv » 12.02.2012 01:05:32
gzip: stdin: not in gzip format
tar: Child returned status 1
tar: Exiting with failure status due to previous errors
OberonAR » 12.02.2012 01:21:02
leo_bsv » 12.02.2012 02:29:00
OberonAR » 12.02.2012 09:42:45
svk12 » 12.02.2012 12:34:07
OberonAR писал(а):массив форм который я предложил, предоставляет больше контроля над всеми открытыми окнами...
var i:integer;
begin
with Application.MainForm do
begin
for i:=0 to Pred(ComponentCount) do
begin
if Components[i] is TForm then //Отбор всех форм
begin
if Components[i] is T...Form then //Отбор всех форм нужного класса
with Components[i] as T...Form do//Доступ к полям формы
end;
end;
end;
end;
leo_bsv » 12.02.2012 13:49:58
svk12 писал(а):Если формы создавались Application.CreateForm(), то они находятся в списке Components главной формы приложения.
OberonAR писал(а):Поначалу планировал все эти формы в дизайн-тайме создавать, а потом экземпляры форм по необходимости. Но большое количество форм будет сразу загружено в память, что не есть гуд (ведь я
только потом буду создавать и уничтожать экземпляры форм, а начальные так и будут висеть в памяти) - как создать саму изначальную форму в рантайме именно такой, какой я ее могу нарисовать в дизайнере форм.
OberonAR писал(а):а с моим вариантом как - нет ли грубых ошибок?
if Components[i] is T...Form then //Отбор всех форм нужного класса
with Components[i] as T...Form do//Доступ к полям формы
svk12 » 12.02.2012 16:05:44
leo_bsv писал(а):человек вроде не желает создавать всё и сразу, на сколько я понял.
leo_bsv писал(а):с массивом, списками типов TFPGList и TObjectList теоретически можно проделать то же самое, задав в качестве класса массива/списка TForm? или я не прав?
leo_bsv » 12.02.2012 19:15:43
procedure TApplication.CreateForm(InstanceClass: TComponentClass; out Reference);
var
Instance: TComponent;
...
begin
...
Instance := TComponent(InstanceClass.NewInstance);
...
if (FCreatingForm=nil) and (Instance is TForm) then
FCreatingForm:=TForm(Instance);
Instance.Create(Self);
...
svk12 » 12.02.2012 19:49:25
Application.CreateForm(TForm1, Form1); begin
Application.Initialize;
и
Application.Run;
end. leo_bsv » 12.02.2012 19:51:57
svk12 писал(а):Но если хочется создавать форму динамически, то следует убрать её Application.CreateForm из файла проекта и вызывать в нужном месте в нужное время.
var
Form1, Form2...: TForm1; Application.CreateForm(TForm1, Form2); iskander » 12.02.2012 20:21:56
leo_bsv писал(а):мы не знаем имени нового объекта... а процедура требует имя:
как быть?
frm := TForm1.Create(Application);
...
with TForm1.Create(Application) do
...
Но если хочется создавать форму динамически, то следует убрать её Application.CreateForm из файла проекта
leo_bsv » 12.02.2012 21:12:14
iskander писал(а):frm := TForm1.Create(Application);
iskander писал(а):with TForm1.Create(Application) do
в смысле динамического создания кучи форм.iskander писал(а):В параметрах проекта есть удобная вкладка "Формы".
iskander » 12.02.2012 21:28:08
leo_bsv писал(а):если обе эти конструкции регистрируют форму в свойстве Application.Components
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 201