Eigene Komponente ???

[Bernd29bln]

hallo,

ich habe mir eine imagekomponente gebastelt.

wenn auf meiner form eine bitmaplist vorhanden ist, möchte ich sie im objecktinspecktor meiner komponente auswählen können .

wie kann ich das machen?

gruss bernd

[Meflin]

Delphi-Quellcode:

private
  FBitmapList: TBitmapList;
  { Private-Deklarationen }
protected
  { Protected-Deklarationen }
public
  { Public-Deklarationen }
published
  property BitmapList: TBitmapList read FBitmapList write FBitmapList;
  { Published-Deklarationen }

[Bernd29bln]

Hallo,

Danke für deine Hilfe, bei :

Delphi-Quellcode:

private 
  FBitmapList: TBitmapList;

Da kommt undefinierer Bezeichner TBitmapList , hab ich was vergessen ?

Gruss Bernd

[mkinzler]

Könnte es sein die Klasse TImageList heißt?

[Bernd29bln]

hallo,

ist schon richtig aber auch mit TImageList , kommt die meldung.

gruss bernd

[mkinzler]

Hast du die Unit in die Uses übernommen?

[Bernd29bln]

hmmmm... welche meinste denn?

[Bernd29bln]

du meinst TImageList ( Graphics ) , hab ich gemacht . geht nicht.?????

gruss bernd

[mkinzler]

Wie sieht der Code jetzt aus?

[Meflin]

Du musst die Unit, in der TImageList deklariert ist, in den Uses-Teil deiner Unit eintragen. Falls die Unit Graphics ist, musst du sie bei uses eintragen.

Delphi-Quellcode:

uses Classes, ..., Graphics;

[Bernd29bln]

hallo,

also müsste ich unit1 in uses schreiben , das wäre ja doof .

kann ich das nicht mit findcomponent machen oder so ?


gruss bernd

[mkinzler]

Zitat:

also müsste ich unit1 in uses schreiben , das wäre ja doof .

Jein. Für die Deklaration nicht. Aber für die Zuweisung der in Unit1 definierten Imageliste muß diese bekannt sein.

Zitat:

kann ich das nicht mit findcomponent machen oder so ?

Nein.

[Bernd29bln]

Hallo,

ich will meine komponente auf meine form ziehen, was ja funcktioniert , und den einfach bitmaplist auswählen .

wenn nun beim anwender die unit nun nicht unit1 heisst gehts ja nicht .

wie könnte man das den ändern , um den namen der unit zubekommen . bei der komponente image gehts doch auch egal wie die unit heisst.


gruss bernd

[mkinzler]

In der Komponentenunit darf Unit1 natürlich nicht in den Uses stehen, in der Unit, der Form auf der die Komponente später liegt.

[Meflin]

Nunja, ich glaube du hast da etwas nicht ganz verstanden ;) Die Klasse TImageList ist in einer Unit deklariert. Diese Unit heisst Graphics. Damit du in deiner eigenen Komponente (Klasse) die Klasse TImageList verwenden kannst, musst du diese deiner Unit, in der deine eigene Klasse deklariert wird, ja irgendwie bekannt machen. Das tust du, in dem du dem uses-Teil DEINER EIGENEN Unit, in der deine Komponente deklariert wird, die Unit Graphics hinzufügst. Dann hast du Zugriff auf alle Klassen, Typen, Konstanten etc aus der Unit Graphics in deiner eigenen Unit.

Um deine Komponente wiederum zu verwenden, muss nun die Unit in der deine Komponente deklariert ist, zu der Unit des PRogramms hinzugefügt werden. Dann ist es aber egal, wie diese deine Unit heisst :)

[Bernd29bln]

hallo,

habs jetzt keine fehler meldung supi. aber wenn ich die imagelist auf der form habe bleibt die auswahl leer. :cry:


gruss bernd

[Dax]

Du musst das Teil auch noch auswählen... Mit Komponente aufs Form klatschen is da nix getan :roll:

[Meflin]

Du musst ja auch im Object Inspector bei deiner Komponente die ImageList auswählen ;) das sollte über eine DropDown-Liste, in der alle Image-Lists auf dem Formular angezeigt werden, möglich sein :)

Oder meinst du dass es nichts zum auswählen gibt? Dann wäre dein Quelltext wie du ihn bis jetzt hast ganz nützlich.

[Bernd29bln]

danke DAX für deine info aber so senil bin ich nun auch nicht.

okay also mein quell text:

Delphi-Quellcode:

uses
  Windows, ...., ImgList, Graphics;

...

private

FBitmapList     : TImageList;

...

published

property BitmapList  : TImageList  read FBitmapList write FBitmapList;

gruss bernd

[Meflin]

Ich kann dein Problem nicht nachvollziehen, hier mein Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

uses Windows, Classes, ImgList, Graphics, Controls, CommCtrl;

type
  TFoo = class(TComponent)
    private
      fImageList: TImageList;
    published
      property ImageList: TImageList read fImageList write fImageList;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TFoo]);
end;

end.

ImageList auf die Form, TFoo auf die Form, und ich kann wunderbar die ImageList unter ImageList auswählen :?

[Bernd29bln]

okay hab vielen dank. :thumb:

[jbg]

Zitat:

Zitat von Meflin

property ImageList: TImageList read fImageList write fImageList;

Die Komponente sollte jetzt noch eine FreeNotification für die ImageList einrichten, da es sonst ziemlich stark kracht, wenn jemand die ImageList vom Formular nimmt.

[Meflin]

Ja schon klar. Aber darum ging es ja hier nicht :stupid: so in etwa:

Delphi-Quellcode:

protected
  procedure Notification(AComponent: TComponent; Operation: TOperation); override;

procedure TFoo.Notification(AComponent: TComponent; Operation: TOperation);
begin
  inherited Notification(AComponent, Operation);
  if (Operation = opRemove) and (fImageList <> nil) and (AComponent = ImageList) then
    ImageList := nil;
end;