IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

delphide as ve is

Kod:

procedure TfrmSender.spdOneClick(Sender: TObject) ;

begin

 pnlReport.Caption := 'Tıkladığınız ' + (Sender as TSpeedButton).Name;

end;

 

procedure TfrmSender.GeneralClick(Sender: TObject) ;

begin

 if Sender is TSpeedButton then

   pnlReport.Caption := 'Tıkladığınız ' + (Sender as TSpeedButton).Name

 else

 if Sender is TForm then

  pnlReport.Caption := 'Tıkladığınız ' + (Sender as TForm).Name

 else

 if Sender is TPanel then

  pnlReport.Caption := 'Tıkladığınız ' +(Sender as TPanel).Name;

end;