Announcement

Collapse
No announcement yet.

Meine erste visuelle Komponente

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • Meine erste visuelle Komponente

    Hallo @all,
    ich habe mir eine Komponente erstellt und diese registriert, abgeleitet habe ich sie von TForm.
    Es klappt auch alles prima,ich kann mir die Komponente auf meine Form draufziehen ABER ich bekomme sie nicht wieder runter, ich kann sie zwar schieben aber nicht mehr löschen????
    Vielleicht hat ja jemand einen Tip für mich, ich finde leider nicht vielen Dank

    Code:
    unit comTest;
    
    interface
    uses
    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
    ExtCtrls;
    
    type
      TTestKompo = class(TForm)
      private
        { Private-Deklarationen }
      protected
        { Protected-Deklarationen }
      public
        { Public-Deklarationen }
        constructor Create(AOwner: TComponent); override;
      published
        { Published-Deklarationen }
      end;
    
    procedure Register;
    
    implementation
    
    procedure Register;
    begin
      RegisterComponents('Beispiele', [TTestKompo ]);
    end;
    
    constructor TTestKompo.Create;
    begin
      inherited Create(AOwner);
      Canvas.Rectangle(5, 5, 10, 10);
    end;
    
    end.

  • #2
    Was könnte eine TForm auf einer TForm bewirken?

    TComponent wäre die unterste Ebene für eine Ableitung, wenn man nicht gleich eine spezialisierte Version TCustomXX nimmt
    Christian

    Comment

    Working...
    X