Привет, с наступающим летом!

Форма содержит много кнопок (около 60), и если у каждой нужно ловить
сообщение OnClick то получается немало кода, а как обслужить все
эти кнопки в одной процедуре?

Блин...
Сначала их все создаёшь.
var A : array of TButton;

SetLength (A,60);
for i := 0 to 59 do
begin
A[i] := TButton.Create (Self);
A[i].Parent := Form1;
A[i].Width := ...;
A[i].Height := ...
A[i].OnClick := MyClick;
end;

А выше описываешь MyClick

procedure TForm1.MyClick (Sender : TObject);
begin
ShowMessage ((Sender as TButton).Caption);
//Или так:
//ShowMessage (TButton(Sender).Caption);
end;

Не забудь вставить описание описание процедуры:
procedure MyClick (Sender : TObject);
туда, где описывается класс TForm1 (туды, где напиано {private declarations}).

Примерно так. Но не тестировал. Может, где ошибка.

Можно, например, сделать так:
Если они у тебя выполняют схожую информацию, то сделай универсальный обработчик для клика на кнопку (Например, используй не фиксированные данные, а переменные). И затем выбери для каждой подходящей кнопки его (Можно его оформить в TActionList). Если их можно на разбить нанесколько схожих групп, то сделай несколько таких обработчиков.

Это сообщение отредактировал(а) <Spawn> - 27.5.2003, 16:01

Агромное Спасибо!

Можно воспользоваться св-м Tag:integer; Задай для каждой кнопки свой значение Tag-а. Button1.Tag:=0; Button2.Tag:=1 и т.д. А в универсальном обработчике OnClick выполни выбор через case

Код

if Sender is TButton then with TButton(Sender) do begin    case Tag of    0: begin           //онклик Button1        end;    1: begin           //онклик Button2        end;     ................................    59:  begin           //онклик Button60           end;    end;{case} end;

Dapo Уже все сделал, спасибо.