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

[Баламут]

Если в этом обработчике, то так

ShowMessage((Sender as TForm).Name);

[phomm]

Если имя нужно только для изменения цвета, то смысла нет трогать имя, сразу использовать цвет

(Sender as TForm).Color := clred;

Вообще, логика не очень понятна, зачем раскрашивать форму, чтобы показать что мы именно её закрываем, ведь юзер и так щёлкнул на крестик именно той формы которую он хочет закрыть (разве что, логичен вариант с программным закрытием, не по крестику)

[artemavd]

зачем раскрашивать форму

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

ведь юзер и так щёлкнул на крестик именно той формы которую он хочет закрыть (разве что, логичен вариант с программным закрытием, не по крестику)

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

-------------------------------
Вот, кинул на форму pm5: TPopupMenu на стадии разработки и написал там такой код в пункте:

procedure TForm1.N22Click(Sender: TObject);
var
 DinLabel: TsLabel;
 ColorDialog: TsColorDialog;
begin
 DinLabel:=TsLabel.Create(Self);
 DinLabel.Font.Size:=8;
 DinLabel.Align:=alBottom;
 DinLabel.Caption:=(Sender as TsRichEdit).Name;

 ColorDialog:=TsColorDialog.Create(Self);

 (Sender as TsRichEdit).Color:=ColorDialog.Color;

 Form1.pFIBQuery2.Close;
 Form1.pFIBQuery2.SQL.Text:='UPDATE T_' + l + ' SET COLOR=:C WHERE ID=:I';
 Form1.pFIBQuery2.ParamByName('I').Value:=1;
 Form1.pFIBQuery2.ParamByName('C').Value:=(Sender as TsRichEdit).Color;
 Form1.pFIBQuery2.ExecQuery;
 Form1.pFIBQuery2.Transaction.Commit;
end;

Сначала мне нужно занести в строковую переменную имя RichEdit (это работает правильно). Потом мне надо присвоить из диалога цвет компоненту RichEdit, а потом обновить в базе данных значение цвета этого компонента.
До выбора цвета сам RichEdit создается динамически так:

var
 RichEdit: TsRichEdit;
begin
//создаю компонент TsRichEdit
   RichEdit:=TsRichEdit.Create(Form);
   RichEdit.Parent:=Form;
   RichEdit.Align:=alClient;
   RichEdit.BevelOuter:=bvNone;
   RichEdit.Lines.Add(bodynote);
   RichEdit.Font.Name:='Monotype Corsiva';
   RichEdit.Font.Size:=12;
   RichEdit.SkinData.CustomColor:=True;
   RichEdit.SkinData.CustomFont:=True;
   RichEdit.Color:=StringToColor(col);
   RichEdit.PopupMenu:=pm5;
   RichEdit.Name:='sRichEdit' + IntToStr(fFormName);
//   RichEdit.OnContextPopup:=sRichEdit1ContextPopup;
end;

Но, при выборе цвета из попапменю, на пункте выбора цвета, выдается ошибка: "Invalid class typecast". Что я неправильно привожу?
С именем компонента разобрался. Прошу помочь с правкой кода выше.

[phomm]

В обработчике щелчка по пункту меню Вы используете каст
(Sender as TsRichEdit) хотя сендер - суть менюитем.

Сначала мне нужно занести в строковую переменную имя RichEdit (это работает правильно)

работает правильно, думаю, потому что свойство name наследуется аж из tcontrol (емнип) и работает через тконтрол

Вам надо, по идее, обратиться к ричедиту как к владельцу попапменю, у меню есть свойство PopupComponent- кто меню вызвал, через него и надо работать, приводя к типу рич эдита.

[artemavd]

Прошу помощи в оформлении строчки условия. Вот код:

begin
//получаю список значений в поле, для которого будет делаться условие в Where
    Form1.pFIBQuery2.Close;
    Form1.pFIBQuery2.SQL.Clear;
    Form1.pFIBQuery2.SQL.Text:='select * from T_KATEGORII';
    Form1.pFIBQuery2.ExecQuery;
    SL:=TStringList.Create;
    while not Form1.pFIBQuery2.Eof do
    begin
      SL.Add(Form1.pFIBQuery2.FieldByName('KATEGORIYNAME').AsString);
      Form1.pFIBQuery2.Next;
    end;
    SL.Delimiter:=',';

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

    for k := 0 to SL.Count - 1 do
    begin

     Form1.pFIBQuery2.Close;
     Form1.pFIBQuery2.SQL.Clear;
     Form1.pFIBQuery2.SQL.Text:='select * from T_' + User + ' where KATEGORIY in (' + SL.Strings[k] + ')';
     Form1.pFIBQuery2.ExecQuery;
     while not Form1.pFIBQuery2.Eof do
     begin

      Form:=TForm.Create(Self);
      Form.BorderIcons:=[biSystemMenu];
      Form.Height:=220;
      Form.Width:=225;
      Form.Position:=poDesigned;
      Inc(xLeft,225);
      if xLeft + Form.Width > Screen.Width then
      begin
       xLeft:=0;
       Inc(xTop,220);
      end;
      Form.Top:=xTop;
      Form.Left:=xLeft;
      Form.Name:='Form' + IntToStr(Form1.pFIBQuery2.FieldByName('ID').AsInteger);
      Form.Caption:=SL.Strings[k];
      Form.BorderStyle:=bsSizeable;
      Form.Color:=StringToColor(col);
      Form.Show;
      Form1.pFIBQuery2.Next;
     end;
    SL.Free;
    end;
   SL.Free;
end;

Но выдается ошибка:
Указанная буква П - это первая буква из списка SL, который сформировался в начале кода.

[veniside]

кавычек не хватает

'select * from T_' + User + ' where KATEGORIY in ("' + SL.Strings[k] + '")';

(двойные или одинарные не помню, но какие-то точно нужны).

А ещё лучше через вычисляемое поле, иначе ожидайте SQL-injection в ближайшем будщем )

[artemavd]

Не, с добавлением кавычек не прокатило. Выдалась та же ошибка, но только уже вместо первой буквы П, было написано полностью первое из списка значение. Есть мысли на этот счет?

[Аватар]

Мысль есть - ошибка синтаксиса. Делай точку останова и смотри какой запрос посылаешь. Должен выглядеть примерно так

select * from T_00 where KATEGORIY in ('GG','HH','DD1')

T_00 и значения констант в IN списке там твои само-собой. Это если категория символьного типа.

[artemavd]

Поле KATEGORIY имеет тип VARCHAR. У меня такие и передаются данные, в таком виде. Я проверял, ставил ShowMessage() перед передачей и смотрел как данные будут выглядеть в запросе. Один фиг это не помогает. Поможет, только если я явно перечислю значения из поля, но я не знаю, сколько их может быть и какими они будут.

[Аватар]

Судя по коду там просто достаточно select * from T_00 where KATEGORIY='GG'. Места для IN не вижу. И один SL.Free; явно лишний (первый)