Neue Komponente erstellen

[eddy]

Hallo Hansa,

ich hab' mich bisher immer vor Komponenten gedrückt, aber vielleicht ist ja Deine Komponente eine Möglichkeit in das Thema einzusteigen. Ganz einfach ist ja die Materie nicht.

Ich habe schon mal ein bischen angefangen und kann den Text für das Label im OI eingeben. Und schon stecke ich fest!

Wie bekomme ich das Ding auch noch gezeichnet?
Ich würde zuerst das Label über dem Feld zeichnen wollen also auf den Koordinaten Left und Top-24, später kann man das ja verfeinern.

Delphi-Quellcode:

unit DBEditLabel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls;

type
  TDBEditLabel = class(TDBEdit)
  private
    { Private-Deklarationen }
    FLblCaption : TCaption;
    function RdLblCaption : TCaption;
    procedure WrLblCaption(val : TCaption);

  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property LblCaption : TCaption read FLblCaption write FLblCaption;
//    property LblFont : TFont;
//    property LblLeft : Integer;
//    property LblTop : Integer;
//    property LblWidth : Integer;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TDBEditLabel]);
end;

function TDBEditLabel.RdLblCaption : TCaption;
begin
  Result := FLblCaption;
end;

procedure TDBEditLabel.WrLblCaption(val : TCaption);
begin
  FLblCaption := val;
end;

end.

Hätte also nichts dagegen die Entwicklung dieser Komponente mit Dir und anderen Helfern hier so durchzuziehen, daß man was lernen kann.

mfg
eddy