Sender и объект

[danka123]

Всем привет.
Создаю динамически спидбатоны на форме, указываю им свойства, все ок.
нужно в дальнейшем при клике по N кнопке, выводить например в caption формы, caption кнопки, чтобы както отследить кнопку..

не получается сделать, делаю так:
объявляю процедуру

    procedure senn(Sender: TObject);

пишу в ней код что передаю и куда

procedure TForm1.senn(Sender: TObject);
begin
 Caption := TsSpeedButton(Sender).Caption;
end;

и теперь нужно при создании динамическом, сделать событие, тут и ошибка..
делаю как-то так:

.....
       Width := 600 ;
        Height := 41;
        Font.Size := 10;
 OnClick := senn(buttt);

buttt Это TSspeedButton, также передавал туда сам TSspeedButton, ошибка... помогите разобраться что не так

[Баламут]

Ну правильно ругается. Если делать все по феншую, то так будет:

   ......
    OnClick := senn;
//И, кстати

procedure TForm1.senn(Sender: TObject);
begin
  ShowMessage((Sender as TSpeedButton).Caption);
end;

[danka123]

Баламут Спасибо в трех соснах запутался

[Serge_Bliznykov]

кстати, так тоже будет работать:

procedure TForm1.senn(Sender: TObject);
begin
 Caption := TSpeedButton(Sender).Caption;
end;

по сути, это тоже самое, что и (Sender as TSpeedButton).Caption;


но я бы во избежания косяков ещё и тип сендера проверял.
вот так:

procedure TForm1.senn(Sender: TObject);
begin
  if Sender is TSpeedButton then
      Form1.Caption := (Sender as TSpeedButton).Caption;
end;

[eval]

посде is as уже оверхеад

[Serge_Bliznykov]

Сообщение от eval

посде is as уже оверхеад

Вы имеете в виду, что после проверки на Sender is TSpeedButton
нужно использоать прямое приведение типа через TSpeedButton(Sender) ?!

А чем Вас Sender as TSpeedButton после is не устраивает?

[Человек_Борща]

Ещё можно так:

var
  Button:TButton ABSOLUTE Sender;
begin
  //Работа с Sender через Button, напрямую.
end;

Память для Button не выделяется, а используется Sender.
Очень полезный ход, но и пользоваться надо с умом.

[northener]

2 Serge_Bliznykov

А чем Вас Sender as TSpeedButton после is не устраивает?

Тем что не понятно зачем два раза подряд проверять тот ли это класс. Как будто вы не доверяете проверке оператором is.

[Serge_Bliznykov]

northener, погодите. Или я чего-то не понимаю, или одно из двух.
А кто сказал, что as что ПРОВЕРЯЕТ ?!

вот смотрите, пусть есть код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  Form1.Caption := (Sender as TButton).Name;
end;

если написать вызов так:

  Button2Click(Button1);

то всё отработает как надо.

А если написать, например, так:

  Button2Click(Form1);

то получаем (закономерно!) access vioalation. (см. скриншот)

И где избыточность при использовании as после is ?!

[eval]

А кто сказал, что as что ПРОВЕРЯЕТ ?!

справка говорит