...eine Komponente entwickeln?

Autor: Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

Kategorie: VCL

{

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.

 

printed from
www.swissdelphicenter.ch
developers knowledge base