نحوه استفاد از پارامتر Sender در BCB

[max2004]

سلام
همون طور كه ميدونيد اگه بخوايم تو دلفي از اين پارامتر براي دسترسي به يك كمپوننت استفاده كنيم به طور مثال خواهيم داشت :



procedure TForm1.Button1Click(Sender: TObject);
begin
TButton(Sender).Caption := "btn1";
end;

اما من هر چي سعي (و جستجو) كردم نتونستم اين كار رو توي C++Builder انجام بدم
ممنون ميشم راهنمايي كنيد

[sasan_vm]

سلام
به 2 روش می توان این کار را انجام داد:



void __fastcall TForm1::Button1Click(TObject *Sender)
{
// way 1:
((TButton*)Sender)->Caption = "btn1";

// way 2:
TButton * button = static_cast <TButton*> (Sender);
button->Caption = "btn1";
}