Вот такая задачка. У меня на форме находится 114 кнопочек. На каждой в начальный момент времени написан 0. Как сделать, чтобы при обработки события onclick надпись менялась на + 1, и как для всех этих 114 button-ов прописать один и тот же обработчик?

так

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (sender is TButton) then
    try
      (sender as TButton).Caption:=IntToStr(StrToInt((sender as TButton).Caption) + 1);
    except
      (sender as TButton).Caption:='0';
    end
end;

или так (что иногда предпочтительнее)

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not (sender is TButton) then exit;
  (sender as TButton).Tag:=(sender as TButton).Tag + 1;
  (sender as TButton).Caption:=IntToStr((sender as TButton).Tag);
end;

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

а чтоб в глазах не рябило можно и
with (sender as TButton) do begin
применить

Слушай, списиб большое! Выручил реально!

А как здесь же реализовать отмену последнего действия (нажатия кнопки)? Иначе из-за случайного нажатия не той кнопочки последствия не очень хорошие будут.

тогда перед тем как начинать что то - выдать пользователю запрос на то - уверен он или нет
ирсключает случайность напроч

Для: sax_ol
Пользователи никогда не читают сообщения
Для: DelphiLove
Просто интересно, почему именно 114 кнопочек?

Для: Pasha
вот только ненадо за всех говорить
ну а если и так то - повторить его несколько раз, чтоб наконецто читать стали

Для: sax_ol
]]>На самом деле, пользователи не читают ничего. Даже комиксы.]]>

Для: Pasha
я надеюсь не надо объяснять что написанно на заборе и что на самом деле за ним ...

Для: sax_ol
Я видел юзерей, которые после перехода на 98-ю винду удалили папку Windows. Потому что "в ней же 95-я лежала" При этом ответив "да" на кучу сообщений с красными и желтыми значками.

А по теме - для отмены действий надо использовать паттерн Command.

Для: Pasha
ну я ж говорю, ненадо за всех, я вот тож повидал всякое, однако воздерживаюсь от обобществления, тем более в деле "связанном с людми"

патерн, конечно хорошо, но вот что смущает, так это вопросы топика ...
надо последнее действие(я), как то и в каком то виде запомнить/сохранить (все зависит от условий:предполагаемых действий ...), а потом вопроизвести обратное ему, т.е. - откатить/отменить.
получилось более понятно?

Ну как бы для этого Command и используется.
]]>http://ru.wikipedia.org/wiki/Command]]>

калькулятор с undo. на C#.