void __fastcall TForm1::Label1MouseMove(TObject *Sender, TShiftState Shift, int X, int Y) { TLabel *pLabel; TEdit *pEdit; TButton *pButton; pLabel = dynamic_cast <TLabel *> (Sender); pEdit = dynamic_cast <TEdit *> (Sender); pButton = dynamic_cast <TButton *> (Sender); if (pLabel) { Label1->Caption = "Ich bin ein TLabel. Mein Name ist "" + pLabel->Name + """; } else if (pEdit) { Label1->Caption = "Ich bin ein TEdit. Mein Name ist "" + pEdit->Name + """; } else if (pButton) { Label1->Caption = "Ich bin ein TButton. Mein Name ist "" + pButton->Name + """; } }
Kategorien
-
Neueste Beiträge
- [ABAP] Prüfen, ob ein bestimmer Festwert in einer Domäne vorhanden ist
- [SAP] Drucker für Benutzer festlegen
- [SAP Fiori] Fiori Launchpad erweitern, Systeminformationen im Launchpad anzeigen
- [SAP Gateway] ODATA V4 Service für anonymen Zugriff einrichten
- [ABAP] Varianten eines Reports lesen
- Warum Krebspatienten so viel Gewicht verlieren
- [SAP Fiori] ABAP RESTful Application Programming Model (RAP)
- [SAP] Events und Typkoppelungen
- [SAP Gateway] Daten versenden über einen eventbasierten Aufruf einer OData-Funktion
- [ABAP] SE80: Tricks für den ABAP-Editor