Mega Code Archive
Get and use Sender properties, typecast it
<![CDATA[
Title: Get and use Sender properties, typecast it
Question: How do I Use the Senders Properties.
Could be useful if more than one button uses the same Click-Event.
Answer:
If you have more then one Button using the same Click Event And you need to access the Properties of the Button(Sender) that is pressed then this does the trick :
procedure TForm1.Button1Click(Sender: TObject);
begin
with Sender as Tbutton do
Begin
Label1.Caption := Caption ;
Label1.left := Left ;
EnD;
end;
This code Sets a Label1.Caption to the caption of the button that calls the procedure above(Procedure TForm1.Button1Click). This can be done with other Tcompunents as well.
In the Above Procedure a good idea would be to Make a check on the senders class type before typecasting it or check if it should be NIL etc
]]>