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

[Аватар]

Можно примерно так

//Счетчики, в Private главной формы
 xLeft,xTop: Integer;
...
//Начальные значения, в OnCreate главной формы
  xLeft:=0; xTop:=0;
...
//процедура создания формы
  Form:=TForm.Create(Self);
  Form.Height:=220;
  Form.Width:=200;
  Form.Position:=poDesigned;
  Inc(xLeft,20);
  if xLeft+Form.Width>Screen.Width then begin
    xLeft:=0;
    Inc(xTop,20);
  end;
  Form.Top:=xTop;
  Form.Left:=xLeft;

[artemavd]

Аватар, здорово, спасибо! только первая форма начинает создаваться не левого верхнего угла рабочего стола. Для этого надо написать так:

procedure TForm1.FormCreate(Sender: TObject);
begin
 xLeft:=Screen.Left;
 xTop:=Screen.Top;
end;

?

[Аватар]

Можно просто начальное значение ; xLeft:=-20;

[artemavd]

Да, Аватар, логично . Спасибо . Вот такой теперь вопрос (тоже относится к этой теме). Создал я еще панельку на форме:

//создаю панельку
   Panel:=TsPanel.Create(Form);
   Panel.Align:=alTop;
   Panel.Height:=25;
   Panel.SkinData.CustomColor:=True;
   Panel.BevelOuter:=bvNone;
   Panel.Color:=StringToColor(Form1.pFIBQuery2.FieldByName('COLOR').AsString);
   Panel.Parent:=Form;

//создаю кнопочку
   Buttonchik:=TsButton.Create(Form);
   Buttonchik.Align:=alRight;
   Buttonchik.Images:=Form1.sAlphaImageList1;
   Buttonchik.ImageIndex:=17;
   Buttonchik.Font.Style:=[fsBold];
   Buttonchik.ShowHint:=True;
   Buttonchik.Hint:='Закрыть';
   Buttonchik.Reflected:=True;
   Buttonchik.Width:=23;
   Buttonchik.SkinData.SkinSection:='TOOLBUTTON';
   Buttonchik.Parent:=Panel;
//   Buttonchik.OnClick(Action.Free);

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

[Аватар]

...
  private
    procedure ChildrenFormClose(Sender: TObject; var Action: TCloseAction);
...

procedure TForm1.ChildrenFormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TForm1.ButtonClick(Sender: TObject);
var Form: TForm;
begin
  Form:=TForm.Create(Self);
  ...
  Form.OnClose:=ChildrenFormClose;
  ...
end;

Примерно в этом же направлении для любых других обработчиков событий динамически создаваемых объектов

[artemavd]

Чего-то я не догнал. У меня же кнопка создается тоже динамически и я не смогу открыть во время работы программы и написать туда код. Или я не понял?

[Аватар]

А чего ButtonClick пугаться. Это просто процедура главной формы, в которой создаются твои динамические формы. Убери если не нравится, в другом месте создавай Не в этом же главный момент, а в Form.OnClose:=ChildrenFormClose;

[artemavd]

Вроде и понял и не понял наполовину. Смотри:

...
  private
    procedure ChildrenFormClose(Sender: TObject; var Action: TCloseAction);
...

procedure TForm1.ChildrenFormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TForm1.sSpeedButton14Click(Sender: TObject);
var
 Form: TForm;
 Buttonchik: TsSpeedButton;
begin
 fFormName:=0;
//создаю форму динамически
   Form:=TForm.Create(Self);
   Form.BorderIcons:=[biSystemMenu];
   Form.Caption:=' ';
   Form.Height:=220;
   Form.Width:=200;
   Form.Position:=poDesigned;
   Inc(xLeft,205);
   if xLeft + Form.Width > Screen.Width then
   begin
     xLeft:=0;
     Inc(xTop,50);
   end;
   Form.Top:=xTop;
   Form.Left:=xLeft;
   Inc(fFormName);
   Form.Name:='Form' + IntToStr(fFormName);
   Form.Caption:='№' + IntToStr(fFormName);
   Form.Icon.Empty;
   Form.BorderStyle:=bsNone;
   CreateParams(Params);
   Form.Color:=clRed;

//создаю кнопку
   Buttonchik:=TsSpeedButton.Create(Form);
   Buttonchik.Name:='sSpeedButton' + IntToStr(fFormName);
   Buttonchik.Align:=alRight;
   Buttonchik.Images:=Form1.sAlphaImageList1;
   Buttonchik.ImageIndex:=17;
   Buttonchik.Font.Style:=[fsBold];
   Buttonchik.ShowHint:=True;
   Buttonchik.Hint:='Закрыть заметку';
   Buttonchik.SkinData.CustomColor:=True;
   Buttonchik.SkinData.SkinSection:='TOOLBUTTON';
   Buttonchik.Width:=23;
   Buttonchik.Parent:=Panel;
//   Buttonchik.OnClick:=ChildrenFormClose; <<-- так надо написать??

end;

так???

[Аватар]

Не, я пример без буттона привел, а что бы динамическая форма просто крестом закрывалась. Так проще. Можно и с буттоном, но для него добавить свой обработчик событий, в котором метод Close формы вызывать. И все равно для динамической формы OnClose из моего примера нужен будет, caFree как-то нужно форме передать.

CreateParams зачем явно вызывать? Форма сама к нему обратится

[artemavd]

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