Вывести имя компонента в заголовок формы

[Алексей_2012]

как при нажатии на компонент вывести его имя в форм1?

допустим это работает

procedure TForm1.FormCreate(Sender: TObject);
var
  comps: Byte;
begin
  for comps := 0 to ComponentCount - 1 do
    if (Components[comps] is TEdit) then  
    (Components[comps] as TEdit).OnClick:= Edit1.OnClick;
end;

а что нужно прописать в событие on click, чтобы при клике на другой edit выводилось имя другого editа?

form1.Caption:=Edit1.Name;

[eval]

form1.Caption:='Edit1';

[Алексей_2012]

во меня не поняли, у меня на форме 114 edit ов лежит, да, придумал новый алгоритм кроссворда, но для этого мне нужно придумать как проверить имя каждого edita то есть сначала в цикле присвоить так как мне надо, а потом уже в запущенной программе просмотреть все ли совпадает, то есть кликните допустим на эдит 87, в заголовке формы должно быть edit7

[eval]

ну и каким смыслом связаны 87 и 7?

[Аватар]

на форме 114 edit ов лежит

Полный абзац. Копай StringGrid

form1.Caption:=TEdit(Sender).Name;

Подойдет? И этот OnClick на все эдиты. Запаришься ставить

[Stilet]

новый алгоритм кроссворда

Меняй Эдиты на StringGrid
А чтоб он выглядел как кроссворд просто опиши красиво отрисовку. Заливать значащие ячейки другим цветом.

[Алексей_2012]

form1.Caption:=TEdit(Sender).Name;

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

[BDA]

"думаю будет проблематично сделать такую же сетку" - скорее всего, не проблематично.
"другие клетки надо будет прикрыть компонентами типа timage для того, чтоб их не заполняли" - скорее всего, не надо.
А таким количеством эдитов мучить нехорошо программу.

[Алексей_2012]

ну ясно что всегда есть альтернатива, главное ее найти

[BDA]

Грубый пример, сваянный на коленке за час.
UPD
Чуток измененный вариант.
UPD2
Кстати, да. Вообще сразу на канве прикольнее рисовать