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

[priboltik]

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

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

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

priboltik, приведи, пожалуйста, полностью обработчик события...
и поконкретнее, что в каком случае должно происходить...
при щелчке на CheckBox 3 CheckBox'а должны становиться невидимыми? Или только один, на который кликнули?
и описание ошибки, которая у тебя выдается.

hint: Enabled и Visible - это разные свойства ;)
хочешь менять видимость - с ней и работай.

Сообщение отредактировано: мисс_граффити - 23.02.2007 23:06

[priboltik]

hint: Enabled и Visible - это разные свойства ;)
хочешь менять видимость - с ней и работай.

сорри. погнал мне нужен вообще в обработчик кнопки вставить... это реально???.. вот фрагмент кода:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
  begin
if opendialog1.Execute then
  begin
  AssignFile(f,opendialog1.FileName);
  reset(f);
  Edit1.Text:=opendialog1.FileName;
 (Sender as TCheckBox).Enabled:=true;
  end;
end
else begin
try
Assignfile(f,edit1.text);
reset(f);
except
showMessage('Файл не найден');
edit1.Text:='';
end;
end;
end;

сегодня в универе посоветовали сначала сделать проверку: if (Sender is TCheckbox) then
(sender as TCheckbox).enabled;
.. еще правда не пробовал..

Сообщение отредактировано: volvo - 24.02.2007 18:02