Το ανοιχτό περιβάλλον προγραμματισμού της Delphi βασίζεται στη χρήση διαφόρων στοιχείων. Ένα στοιχείο είναι ο κώδικας που εκτελεί μια συγκεκριμένη εργασία χρησιμοποιώντας ιδιότητες, συμβάντα και διαδικασίες. Κατά τη δημιουργία ενός στοιχείου, πρέπει να ορίσετε τις τιμές των μεταβλητών και να εφαρμόσετε τον κώδικα των χειριστών συμβάντων. Για να χρησιμοποιηθεί στο πρόγραμμα, το νέο στοιχείο πρέπει να συμπεριληφθεί στο πακέτο του έργου.
Είναι απαραίτητο
Περιβάλλον ανάπτυξης των Δελφών
Οδηγίες
Βήμα 1
Επιλέξτε τον τύπο του στοιχείου που θέλετε να δημιουργήσετε. Μπορεί να είναι ένα στοιχείο των Windows, ένα στοιχείο γραφικών, ένα αντικείμενο ελέγχου ή ένα μη οπτικό στοιχείο. Επίσης, το αντικείμενο σας μπορεί να κληρονομήσει από οποιαδήποτε υπάρχουσα τάξη. Αποφασίστε για τις συναρτήσεις που θα εκχωρήσετε το στοιχείο που θα εφαρμοστεί.
Βήμα 2
Ξεκινήστε το περιβάλλον ανάπτυξης των Δελφών. Στο κύριο μενού εφαρμογών, ανοίξτε τα στοιχεία Component, New Component. Στο παράθυρο διαλόγου που εμφανίζεται, στο πεδίο Τύπος προγόνου, επιλέξτε την κλάση στοιχείων που θέλετε να τροποποιήσετε. Εάν δεν χρησιμοποιείτε κληρονομιά, στο πεδίο Όνομα κλάσης, απλώς εισαγάγετε ένα όνομα για το νέο στοιχείο που ξεκινά με το γράμμα "Τ". Στο πεδίο Σελίδα παλέτας, γράψτε το όνομα της καρτέλας συστατικών μετά την εγκατάσταση και, στη συνέχεια, κάντε κλικ στο κουμπί Δημιουργία μονάδας. Το περιβάλλον ανάπτυξης θα δημιουργήσει αυτόματα ένα πρότυπο για το νέο στοιχείο. Ένα παράδειγμα του κώδικα Pascal που δημιουργήθηκε:
μονάδα MyBtn;
διεπαφή
χρήσεις
Windows, SysUtils, μηνύματα, τάξεις, χειριστήρια, γραφικά, φόρμες, StdCtrls, διάλογοι.
τύπος
TMyBtn = class (TButton)
ιδιωτικός
προστατευμένο
δημόσιο
δημοσίευσε
τέλος;
Μητρώο διαδικασίας
εκτέλεση
Μητρώο διαδικασίας
να αρχίσει
RegisterComponents («MyComponents», [TMyBtn]);
τέλος;
τέλος.
Ταυτόχρονα, δεν δημιουργήθηκε μόνο μια νέα κλάση TMyBtn με βάση την τυπική κλάση του κουμπιού TButton, αλλά επίσης περιγράφεται η διαδικασία για την καταχώριση ενός νέου στοιχείου στην παλέτα στοιχείων.
Βήμα 3
Στην ιδιωτική οδηγία, περιγράψτε όλα τα πεδία, τις διαδικασίες και τις λειτουργίες που χρειάζεστε για να δημιουργήσετε το στοιχείο και θα έχουν την κατάσταση κρυφής. Καθορίστε το όνομα του πεδίου (με το γράμμα "F"), τον τύπο του. Για παράδειγμα, μια εγγραφή της φόρμας FDatas: integer περιγράφει μια μεταβλητή FDatas ενός ακέραιου τύπου. Στην προστατευμένη ενότητα, απαριθμήστε τους χειριστές συμβάντων που χρειάζεστε, για παράδειγμα, από τα πλήκτρα πληκτρολογίου ή ποντικιού. Επιπλέον, όταν κληρονομείτε μια τάξη, πρέπει να ορίσετε τη λέξη-κλειδί παράκαμψης - για να επικαλύπτετε τον γονικό χειριστή του τυπικού συμβάντος. Για παράδειγμα, η διαδικασία εγγραφής Κάντε κλικ στο; παράκαμψη διασφαλίζει ότι το κλικ του ποντικιού στο κουμπί παρεμποδίζεται.
Βήμα 4
Οι λειτουργίες και οι διαδικασίες του στοιχείου που είναι διαθέσιμος στο χρήστη περιγράφονται στο κοινό και δημοσιεύονται οδηγίες, για παράδειγμα, χρησιμοποιώντας μια εγγραφή της φόρμας: συνάρτηση TSysInfo. GetUser: string ή ιδιότητα MachName: string. Στην τελευταία οδηγία, όταν χρησιμοποιείτε τη λέξη ιδιότητα, μπορείτε να καθορίσετε ιδιότητες που θα είναι διαθέσιμες στο εργαλείο επιθεώρησης αντικειμένων.
Βήμα 5
Γράψτε τον πραγματικό κωδικό για τη λειτουργία του στοιχείου στις δηλωμένες διαδικασίες και λειτουργίες. Δείγμα κώδικα χειριστή:
συνάρτηση MachName: string;
var
p: ακέραιος;
με: PChar;
να αρχίσει
c: = stralloc (p);
τέλος;
τέλος.
Βήμα 6
Εγκαταστήστε το στοιχείο στο έργο που χρειάζεστε. Από το κύριο μενού των Δελφών, επιλέξτε Component, Install Component. Στο παράθυρο διαλόγου που εμφανίζεται, ανοίξτε μία από τις καρτέλες: Σε υπάρχον πακέτο, εάν θέλετε να εγκαταστήσετε το στοιχείο σε ένα υπάρχον πακέτο ή σε νέο πακέτο - σε ένα νέο. Κάντε κλικ στο OK και επιβεβαιώστε το αίτημα της εφαρμογής για αντικατάσταση του πακέτου (εάν είναι απαραίτητο). Μετά από αυτό, το γραπτό συστατικό θα είναι έτοιμο για χρήση.
