Создание нескольких компонентов сразу в цикле

[artemavd]

Добрый день! Задача проста: в базе данных есть текст в неком поле. Нужно в цикле вытащить этот текст, создать форму, ричэдит для каждого вытащенного значения и вытащенное значение помещать в последний созданный ричэдит. Не получается создать в цикле, ошибка при присвоении имени новой форме (Form):

procedure TForm1.sSpeedButton14Click(Sender: TObject);
var
 num,bodynote: string;
 Form: TForm;
 SkinProvider: TsSkinProvider;
 RichEdit: TsRichEdit;
 st: TMemoryStream;
 TitleButton: TsTitleButtons;
begin
 Form1.pFIBQuery2.Close;
 Form1.pFIBQuery2.SQL.Clear;
 Form1.pFIBQuery2.SQL.Text:='select * from T_' + l;
 Form1.pFIBQuery2.ExecQuery;
 while not Form1.pFIBQuery2.Eof do
 begin
   bodynote:=Form1.pFIBQuery2.FieldByName('BODYNOTE').AsString;

   Form1.pFIBQuery3.Close;
   Form1.pFIBQuery3.SQL.Clear;
   Form1.pFIBQuery3.SQL.Text:='select count(*) as A from T_' + l;
   Form1.pFIBQuery3.ExecQuery;
   num:='№' + IntToStr(Form1.pFIBQuery3.FieldByName('A').AsInteger - 1);


//создаю форму динамически
   Form:=TForm.Create(Self);
   Form.BorderIcons:=[biSystemMenu];
   Form.Caption:=' ';
//   Form.Name:='Form' + IntToStr(Form1.pFIBQuery3.FieldByName('A').AsInteger + 1);
   Form.BorderStyle:=bsSizeable;

 //создаю компонент TsSkinProvider
   SkinProvider:=TsSkinProvider.Create(Form);
   SkinProvider.CaptionAlignment:=taLeftJustify;
   SkinProvider.ShowAppIcon:=False;
   SkinProvider.AddedTitle.Font.Size:=8;
   SkinProvider.AddedTitle.Font.Style:=[fsBold];
   SkinProvider.AddedTitle.Text:=num;

 //создаю кнопку

   //создаю компонент TsRichEdit
   RichEdit:=TsRichEdit.Create(Form);
   RichEdit.Parent:=Form;
   RichEdit.Align:=alClient;
   RichEdit.Lines.Add(bodynote);
   RichEdit.Font.Name:='Monotype Corsiva';
   RichEdit.Font.Size:=12;
   RichEdit.SkinData.CustomColor:=True;
   RichEdit.SkinData.CustomFont:=True;
   RichEdit.Color:=clWhite;

   st.Free;

   FOrm1.pFIBQuery2.Next;
 end;

 Form.Show;
end;

Прошу помочь советами.

[veniside]

'select count(*) as A from T_' + l;
...
Form.Name:='Form' + IntToStr(Form1.pFIBQuery3.FieldByName('A').AsInteger + 1)

если число записей в двух или более таблицах будет одинаковое, будут создаваться формы с одинаковыми именами. Тем более l и не меняется в цикле. Зачем каждый раз перезапускать pFIBQuery3 с одинаковым SQL?

Зачем вобще использовать значение поля в имени? Создайте дополнительное поле у класса формы и увеличивайте его для каждой новой формы.

Inc(fFormNum);
Form.Name:='Form' + IntToStr(fFormNum);

Form:=TForm.Create(Self);

если owner будет nil, имхо, имя и не нужно

[Аватар]

А зачем вообще имя формы нужно? Разве что при поиске по Component.Name.

[artemavd]

если owner будет nil, имхо, имя и не нужно

А зачем вообще имя формы нужно?

Мне нужно будет потом по нажатию на крестик удалять форму как-то. Как? Я заранее не знаю какая будет выбрана.

если число записей в двух или более таблицах будет одинаковое, будут создаваться формы с одинаковыми именами.

Не понял смысла предложения.

Тем более l и не меняется в цикле. Зачем каждый раз перезапускать pFIBQuery3 с одинаковым SQL?

Имеешь ввиду T_? Это имя таблицы вообще.

[Аватар]

Мне нужно будет потом по нажатию на крестик удалять форму как-то

OnClose в форме и caFree не катит?

[artemavd]

Вот, сделал так (вроде работает):

procedure TForm1.sSpeedButton14Click(Sender: TObject);
var
 num,bodynote: string;
 Form: TForm;
 SkinProvider: TsSkinProvider;
 RichEdit: TsRichEdit;
 st: TMemoryStream;
 TitleButton: TsTitleButtons;
 fFormName: integer;
begin
 fFormName:=0;
 Form1.pFIBQuery2.Close;
 Form1.pFIBQuery2.SQL.Clear;
 Form1.pFIBQuery2.SQL.Text:='select * from T_' + l;
 Form1.pFIBQuery2.ExecQuery;
 while not Form1.pFIBQuery2.Eof do
 begin
   bodynote:=Form1.pFIBQuery2.FieldByName('BODYNOTE').AsString;

//создаю форму динамически
   Form:=TForm.Create(Self);
   Form.BorderIcons:=[biSystemMenu];
   Form.Caption:=' ';
   Inc(fFormName);
   Form.Name:='Form' + IntToStr(fFormName);
   Form.BorderStyle:=bsSizeable;

 //создаю компонент TsSkinProvider
   SkinProvider:=TsSkinProvider.Create(Form);
   SkinProvider.CaptionAlignment:=taLeftJustify;
   SkinProvider.ShowAppIcon:=False;
   SkinProvider.AddedTitle.Font.Size:=8;
   SkinProvider.AddedTitle.Font.Style:=[fsBold];
   SkinProvider.AddedTitle.Text:=num;

 //создаю кнопку

   //создаю компонент TsRichEdit
   RichEdit:=TsRichEdit.Create(Form);
   RichEdit.Parent:=Form;
   RichEdit.Align:=alClient;
   RichEdit.Lines.Add(bodynote);
   RichEdit.Font.Name:='Monotype Corsiva';
   RichEdit.Font.Size:=12;
   RichEdit.SkinData.CustomColor:=True;
   RichEdit.SkinData.CustomFont:=True;
   RichEdit.Color:=clWhite;

   st.Free;

   Form1.pFIBQuery2.Next;
   Form.Show;
 end;
end;

Теперь вопрос-момент:
1. Как при создании формы расположить их рядом друг с другом на рабочем столе? Ну, например, чтобы расстояние между созданными формами было где-то полсантиметра или сантиметр.

OnClose в форме и caFree не катит?

Как это? Назначить один обработчик всем?

[Аватар]

Как это? Назначить один обработчик всем?

Почему бы и нет? Разместить в главной форме, в нем просто Action:=caFree. Удалит форму, которая обратиласть.

Как при создании формы расположить их рядом друг с другом

Left,Top, и Position=poDesigned

[artemavd]

Вот, наваял так создание формы:

//создаю форму динамически
   Form:=TForm.Create(Self);
   Form.BorderIcons:=[biSystemMenu];
   Form.Caption:=' ';
   Form.Height:=220;
   Form.Width:=200;
   Form.Position:=poDesigned;
   Form.Top:=0;
   Form.Left:=0;
   Inc(fFormName);
   Form.Name:='Form' + IntToStr(fFormName);
   Form.Caption:='№' + IntToStr(fFormName);
   Form.Icon.Empty;
   Form.BorderStyle:=bsSizeable;

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

[Аватар]

Заведи начальные значения для Left и Top. При создании формы давай приращение. Один см тяжелее, для разных разрешений разное к-во пикселей. Вычислить можно, но не уверен, что для всех возможных конфигураций мониторов. Можно просто давать приращение, ну 20 пикселей например. Или 1см обязательно? Размеры экрана в пикселях в Screen.Width и Screen.Height

[artemavd]

А как именно правильно записать приращение? Помоги немного кодом если не сложно.