[Melletzar]

Поработал с Sender'ом. Возникла новая проблема. Даже не проблема - просто вопрос за удобство использования. По клику на чекбокс вызывается процедурка strshow таким вот незатейливым образом

Код:

procedure TForm4.CheckBox4Click(Sender: TObject);
begin
strshow(CheckBox4);
end;

А сама процедурка вот такая вот:

Код:

procedure strshow(Sender:TObject);
 begin
   with Sender as TCheckbox do
    begin
      if (Sender as TCheckbox).Checked then
         form4.StringGrid1.ColWidths[17]:=64
      else
         form4.StringGrid1.ColWidths[17]:=-1;
    end;
 end;

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