VPF::Дочерние окна - Форум программистов

vorontsovilya

Дата 27.12.2009, 20:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 27.12.2009

Репутация: нет
Всего: нет

Здравствуйте, вопрос следующего характера, составляю прогу для просмотра базы данных, нужно открывать записи, записей под таблицы, у под таблиц снова записи и т.д. по принципу 1С. Но есть ограничение хотелось бы это сделать двумя максимум тремя динамическими формами которые бы составлялись по настройкам. Может кто подскажет как такое можно реализовать?

vorontsovilya

Дата 27.12.2009, 20:56 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 27.12.2009

Репутация: нет
Всего: нет

отвечу на свой же вопрос, получилось немного сделать следующим образом: создал юнит поместил в него процедуры в теле которых было создание этих форм, соответственно в начале программы поместил в этот юнит названия форм, формы открываются, буду дальше тестировать как это работает. Может кто знает более красивый метод.

Это сообщение отредактировал(а) vorontsovilya - 27.12.2009, 21:00

sCreator

Дата 27.12.2009, 23:09 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 84
Регистрация: 20.8.2009
Где: Московская област ь

Репутация: 2
Всего: 5

Такой вариант устроит?

Код


type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    class function ShowSubTab(aCaption: string {; другие настройки }): integer;
  end;

implementation

{$R *.dfm}



class function TForm1.ShowSubTab(aCaption: string {; другие настройки }): integer;
var
  form: TForm1;
begin
  form := Self.Create(Application);
  try
    form.Caption := aCaption;
    // другие настройки
    Result := form.ShowModal;
  finally
    form.Free;
  end;

end;

вызывать

Код


TForm1.ShowSubTab('Таблица №1');

dvamaster

Дата 28.12.2009, 06:56 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 559
Регистрация: 30.6.2004
Где: Россия : Курган

Репутация: 3
Всего: 10

Код


TForm1 = class(TForm)
  ...
  constructor CreateDBView(AOwner: TComponent; AParams: ТипСодержащийПараметры);
end;
...
constructor TForm1.CreateDBView(AParams: ТипСодержащийПараметры);
begin
  inherited Create(AOwner);
  // инициализация формы по параметрам
end;

--------------------

Хорошую информацию трудно добыть. Сделать с ней что-нибудь - еще труднее. /L. Skywalker/

Что же я сделал не так? /Король Лир/

Я делаю это для твоего же блага! /Любой родитель и палач/

PKUNZIP.ZIP /неизвестный/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »