void __fastcall TForm1::FormClick(TObject *Sender) { TPoint P = Mouse->CursorPos; P = Form1->ScreenToClient(P); Label1->Caption = "x: "+IntToStr(P.x); Label2->Caption = "y: "+IntToStr(P.y); }
Kategorien
-
Neueste Beiträge
- [ABAP] Workflow: Workitems zu Objekt
- [RAP] Excel-Upload in Fiori-Apps
- [ABAP] OLE2-Objekt ‚SAPINFO‘ aufrufen
- [ABAP] Excel-Daten mit XCO API (xco_cp_xlsx) lesen
- [ABAP] Daten einer internen Tabelle als Excel-Datei speichern (xco_cp_xlsx)
- [ABAP] JSON -> ABAP (xco_cp_json)
- [ABAP] ABAP -> JSON (xco_cp_json)
- [ABAP] String nach SYMSG-Struktur konvertieren
- [ABAP] Unix-Timestamp erzeugen
- [ABAP] SALV-Grid: Eventhandler für Doppelklick auf eine Zelle (double_click)