VPF::Одну форму несколько раз... - Форум программистов

maestro2k

Дата 2.10.2006, 12:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

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

Alexeis

Дата 2.10.2006, 12:50 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Цитата(maestro2k @ 2.10.2006, 12:39

)

Я сделал форму сообщения, но ее можно показать только один экземпляр.

Можно обойтись и стандартными диалогами не обязательно делать свои.
ShowMessage(...);
messageBox(...);

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Akella

Дата 2.10.2006, 13:16 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Идея такова:
1. Убираем из модуля эти строки

Код


var
  TfmApartAdd: TfmApartAdd;

2. В событии закрытия формы

Код

procedure TfmApartAdd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

3. Как показать форму

Код


procedure CallEditApart(Mess:String);
Const
 aSQL = 'select id, Name from types where id = :id';
Var
 vName:variant;
begin
  with TfmApartAdd.Create(Application) do  begin  
    //что-то делает до показа формы
    Label1.Caption := Mess;



    show;

  //что-то делаем после показа
  end;//with TfmApartAdd.Create(Application) do  begin

4. Объявлем процедуру показа формы

Код


...
  procedure CallEditApart(Mess:String);

implementation
...

5. Вызов
не забудь поставить ссылку в Uses формы, откуда быдушь вызывать.

Код


...
implementation

uses ... uApart, ...


...
procedure TfmMain.actApartAddExecute(Sender: TObject);
begin
  CallEditApart('Привет мир!');
end;

Добавлено @ 13:17
Если в сообщении нет ничего кроме такста, то лучше послушай
alexeis1`а, и не изобретай велосипед

maestro2k

Дата 2.10.2006, 17:55 (ссылка)

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

Загрузка ...

Шустрый

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

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

Спасибо. То что я хотел.

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