この発言は
#01037　Dia             さんのsenderの使い方
に対するコメントです



「Dia」さん、御免ください。戯音匠者っす。

->procedure TForm1.Button1Click(Sender: TObject);
->begin
->  if sender is TButton then
->    showMessage(TButton(sender).name+'をクリックしたでしょ？');
->end;
->　一行目はちょっと後回しにして、二行目ですが、

asを一緒に説明しちまうのがいいのではないでしょうか？

     by 戯音匠者:BXQ04723＠nifty.ne.jp
    http://member.nifty.ne.jp/guion/を読むと幸せになれたでしょ？(笑)

Original document by 戯音匠者        氏 ID:(BXQ04723)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。