Visit our Sponsor   Visit our Sponsor
delphi3000.com - the free delphi knowledge platform
delphi3000.com - the free delphi knowledge platform
Have a look at your member-status

connecting people's knowledge


  - Recent ArticlesRSS feed for Recent Articles on delphi3000.com
  - List of All Articles
  - Top Viewed Articles
  - Articles (+Attachem.)
  - Articles Of Interest
  - Categories
  - Top Uploader
  - Search
  - Index

  - My Home
  - Submit an Article
  - My Articles
  - My Personal Data
  - My Bookmarks
  - Activities
  - Login/Logout

  - Sign Up
  - Why Sign Up
  - Newsletter

  - Press
  - Advertise

  - Contact
  - Feedback





Community
Borland
ClubeDelphi
Dr. Bob
UK-BUG
Delphi Meetings
Planeta Delphi







Startblatt.de






Share this article with friendsShare this article with friends
Rate this articleRate this article - to keep the quality of delphi3000.com !
Comment this article or read through previous comments (0)


Get and use Sender properties, typecast itFormat this article printer-friendly!Bookmark function is only available for registered users!
Typecasting Sender as Tbutton and more
Product:
Delphi all versions
Category:
Object Pascal
Skill Level:
Scoring:
Last Update:
03/20/2003
Search Keys:
delphi delphi3000 article borland vcl code-snippet Sender Properties Typecast Events
Times Scored:
5
Visits:
2238
Uploader: Nino Arndt
Company: TopNordic
Reference: N/A
 
Question/Problem/Abstract:
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





Please rate this article!
Skill level:
BeginnerExpert

Useful:
No!Very!

Overall rating:
PoorExcellent



Comments to this article
Write a new comment













 
Sign up to consume product discounts for Bronze memberships !

read more


  Visit our Sponsor

 

  Community Ad of
E. DSpirito
 
   














 







     
  Copyright © 2000 - 2007 delphi3000.com - All rights reserved. Terms of use. || Privacy
delphi3000.com is a service by bluestep.com IT-Services GmbH (Vienna)