Tips (1541)
{ 1. Create a new compoent by clicking on File->New->Component 2. Select the ancestor type. In this example TLabel 3. Press okay 4. Edit the unit with this code: } { 1. Erstelle eine neue Komponente indem sie auf Datei->Neu->Komponente klicken 2. Selektieren sie den Vorfahrtyp. In diesem Beispiel TLabel 3. Drücken sie okay 4. Ändern sie die Unit mit diesem Code: } unit BlackLabel; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TBlackLabel = class(TLabel) private { Private declarations } protected { Protected declarations } public constructor Create(aOwner: TComponent); override; published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents('Samples', [TBlackLabel]); end; constructor TBlackLabel.Create; begin inherited Create(aOwner); Color := clBlack; Font.Color := clWhite; end; { This unit create a component that has a black background and white text. override means, that we will override the constructor of TLabel inherited means, that the code of TLabel will executed Now you need a bitmap for your new component, that will displayed in the component palette 5. Start the Image Editor 6. File->New->Component Resource File 7. Add a new bitmap to the file 8. The bitmaps name must be the component name. In this example TBlackLabel 9. After drawing the bitmap save the Resource file. 10. The resource file must have the same name like the components unit. In this example blacklabel.dcr 11. The dcr file must be in the same directory like the component unit 12. Install now the component by clicking Component->Install Component } { Diese Unit erstellt eine Komponente mit schwarzem Hintergrund und weisser Schrift Der Befehl override ist, damit Delphi weiss, dass wir den constructor von TLabel mit unserer neuen Komponente überschreiben. Der Befehl inherited ist, damit die Befehle vom Vorfahrtyp TLabel ausgeführt werden. Jetzt brauchen wir noch ein Bitmap das in der Komponenten Palette angezeigt werden soll. 5. Starten sie den Bildeditor 6. Datei->Neu->Komponenten Ressourcen Datei 7. Fügen sie ein neues Bitmap zu der Datei hinzu 8. Der Name der Bitmap muss gleich sein wie der Komponenten Name. In unserem Beispiel TBlackLabel 9. Nach dem der Bitmap gezeichnet wurde, speichern sie die Datei 10. Die Ressourcen Datei muss den gleichen Namen haben wie die Komponenten Unit. In unserem Beispiel blacklabel.dcr 11. Die dcr Datei muss im gleichen Verzeichnis sein wie die Komponenten Unit. 12. Installieren Sie nun die Komponenten mit Komponente->Komponente installieren } end.
Rate this tip: