Как вывести несколько одинаковых форм одновременно

[k1r1ch]

То есть у меня есть форма с инфой, и она может выводится несколько раз, может один, а может и не разу. Так вот, как мне вывести форму несколько раз? Помогите!

[Пепел Феникса]

обьявляешь еще переменных для форм и создаешь/показываешь их динамически

[vovk]

var
  Form1: TForm1;
   flist:TList;
...........
..........

procedure TForm1.Button1Click(Sender: TObject);
begin
flist.Add(TForm2.Create(nil));
With Tform2(flist.Items[flist.Count-1]) do
begin
Caption:='Форма номер '+Inttostr(flist.Count);
Left:=(flist.Count-1)* 15;
top:=(flist.Count-1)* 15;
show;
end;

end;

только надо будеть озаботится созданием (до того как применять)

flist:=TList.Create;

а потом уничтожением объектов

 for i := 0 to flist.Count - 1 do Tform(flist[i]).Free;

и самого листа

flist.Free;

вроде так если ничего не напутал (в автобусе набивал)

[k1r1ch]

Странно, но сейчас вообще ни одной формы не показывается. Вот переделанный под себя код:

procedure TMainForm.NotificationTimerTimer(Sender: TObject);
var i: integer;
begin
  NotifyList := TList.Create;
  DBForm.Table.First;
  for i := 1 to DBForm.Table.RecordCount do
    begin
      if DBForm.TableHDate.AsDateTime = Date then
        begin
          NotifyList.Add(TNotificationForm.Create(nil));
          with TNotificationForm(NotifyList.Items[NotifyList.Count-1]) do
            begin
              Notify.Caption := 'Сегодня ' + DBForm.TableTypeStr.AsString +
               ' у ' + DBForm.TableHName.AsString;
              Show;
            end;
        end;
      DBForm.Table.Next;
    end;
  DBForm.Table.First;
  for i := 0 to NotifyList.Count - 1 do TNotificationForm(NotifyList[i]).Free;
  NotifyList.Free;
end;

Что неправильно, где я затупил?
И кстати, объясните, что значит конструкция типа TNotificationForm(NotifyList.Items[NotifyList.Count-1])? Что за параметры у типа?

[vovk]

это значит что к обьекту указаннаму в скобках нужно относится как к классу TNotificationForm (это ваш класс) кстати он наследник от Tform, так что можно писать просто

TForm(NotifyList.Items[NotifyList.Count-1])

NotifyList.Items[NotifyList.Count-1]ну а это просто указатель на обьект последний в листе.

Только зачем вы их сразу уничтожаете? Но отображатся они всё равно должны вроде..

и ещё кто такой Notify ? вот тут

Notify.Caption := 'Сегодня ' + DBForm.TableTypeStr.AsString +
' у ' + DBForm.TableHName.AsString;

[k1r1ch]

Все! Спасибо! Действительно, я просто сразу же уничтожал формы, сейчас все работает. Notify - TLabel.

[vovk]

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

[k1r1ch]

Эмм... А если я сейчас в начале процедуры создаю его, а в конце уничтожаю? Ошибки же быть не должно?

И еще вопрос: почему, когда я сворачиваю главную форму, эти формы тоже сворачиваются?

[vovk]

Сообщение от k1r1ch

Эмм... А если я сейчас в начале процедуры создаю его, а в конце уничтожаю? Ошибки же быть не должно?

И еще вопрос: почему, когда я сворачиваю главную форму, эти формы тоже сворачиваются?

Нет конечно.. если в 1 процедуре всё и создаётся и уничтожается ... только это же вроде формы.. с ними какбэээ ну работу закончить надо а потом уничтожать..

[k1r1ch]

Ну а почему они сворачиваются? Типа MainForm - их родительская форма, поэтому? А как этого избежать?