- -
delphide as ve is
(
https://www.forumunuz.com/webmaster-forum/17404-delphide-ve.html)
| Kaf Dağı | 27 Mart 2015 15:28 |
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;
|
| Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:28. | |
Powered by vBulletin® Version 3.8.9 Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Site kurucuları: Damla ve Meltem
