Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Prism Name des Verursachers eines Events? (https://www.delphipraxis.net/63724-name-des-verursachers-eines-events.html)

gerald.schittenhelm 22. Feb 2006 09:21

Re: Name des Verursachers eines Events?
 
Oh danke kalmi01, endlich mal ein konstruktiver beitrag...

Das hilft schon mal. Und jetzt meine schlussfolgernde Frage:
Wie geht das in .NET ? Wenns wer weiß, bitte danke... :angel2:

Stimmt das in etwa so:
Delphi-Quellcode:
(sender as System.Windows.Forms.TextBox).Name
:coder2:

Luckie 22. Feb 2006 09:36

Re: Name des Verursachers eines Events?
 
Probier es doch aus.

JasonDX 22. Feb 2006 09:44

Re: Name des Verursachers eines Events?
 
Zitat:

Zitat von gerald.schittenhelm
Stimmt das in etwa so:
Delphi-Quellcode:
(sender as System.Windows.Forms.TextBox).Name

Jain. Probier das Event mit ner TextBox auszulösen, und dann nochmal mit nem Button.
Zweiters wird dir nicht sonderlich gefallen.
Das zu vermeiden gibts dann 2 Möglichkeiten:
Name ist bereits in der Hirarchie in Control deklariert, d.h. sowas würde auch schon helfen:
Delphi-Quellcode:
(sender as System.Windows.Forms.Control).Name
noch ne kleine Abfrage dazu, damits im ernstfall doch nicht kracht:
Delphi-Quellcode:
if (sender is Control) then
  irgendeinstring := (sender as System.Windows.Forms.Control).Name;
Und falls du wirklich Spaß mit eigenen Klassen hast, die nicht von Control abgeleitet sind und trotzden nen Name haben, gibts sowas wie Reflections:
Delphi-Quellcode:
//Benötigter Namespace: System.Reflection;
PropertyInfo MyNameProperty := sender.GetType().GetProperty("Name");
if (MyNameProperty = nil) then
  irgendeinstring := MyNameProperty.GetValue(sender, nil);
greetz
Mike

gerald.schittenhelm 22. Feb 2006 11:23

Re: Name des Verursachers eines Events?
 
Vielen Dank, funzt! :wink:

smudo 22. Feb 2006 15:57

Re: Name des Verursachers eines Events?
 
Zitat:

Zitat von Elvis
Schonmal ein TIregndWas in .Net gesehen? Ein TEdit wirst du außerhalb irgendwelcher VCL.Net Libs so schnell nicht erleben.

Hab überlesen, dass es hier um .Net geht :oops:


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:49 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz