как использовать Sender Опции

[priboltik]

полазил по FAQу - не нашел..
как я могу использовать Sender и где я могу его использовать???
если я правильно понимаю, то его можно использовать для одинаковых действий над объектами одного и того же класса.. это так??

вот напимер, как с помощью Sender мне в 3 checkbox - ах поменять свойство Visible???
пишу: (Sender as TCheckBox).Enabled:=true; - компиллирует но выдает ошибку...
подскажите пожалуйста..

[мисс_граффити]

Смотри: Sender - это то, что, собственно, вызвало событие.
В данном случае, насколько я вижу, это кнопка Button1.
НО! Если ты привешиваешь обработчик Button1Click на, например, событие CheckBox1 OnClick и щелкаешь по CheckBox1 - Sender'ом будет CheckBox1. Не все CheckBox'ы, а он один.
Тогда можно работать так, например:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Sender is TCheckBox then
  begin
  (Sender as TCheckBox).Visible:=false;
  ShowMessage('Спрятали CheckBox');
  end;
if Sender is TButton then
  begin
  (Sender as TButton).Visible:=false;
  ShowMessage('Спрятали Button');
  end;
end;

Но тут надо быть осторожным: если фактически Sender - BitBtn (TBitBtn - наследник TButton), то Sender is TButton вернет истину.

Если же тебе надо поменять видимость у всех CheckBox'ов, а не у одного, вызвавшего событие (или CheckBox'ы вообще не имеют отношения к событию) - работай с массивом Components, а не с Sender'ом