delphide as ve is

27 Mart 2015

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;