Hi,

ich hab mal in meiner Freizeit ein bisschen mit erstellen Komponeten verbracht, nun hab ich eine für mich sehr Hilfreiche Komponeten erstellt, die mir eine Checkbox mit Bildern bereitstellt , die man selber definieren kann.

Nun ist das Problem, das nachdem ich das Delphi Projekt starte, diese erstmal nicht zu sehen sind, erst wenn ich einmal den Status wechsle. Dabei hab ich aber beachtet, dass die Bilder in Picture geladen werden, zur Entwurfszeit sind die Bilder da und danach nicht mehr. Ich hab nun schon vieles anderes getestet aber kommt leider nicht drauf, von Statuswechsel im Cunstructor bis zum zuweisen des Bildes. Weiters weis ich einfach nicht.

Danke schonmal für Antworten

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77

unit CheckBoxImage;   interface   uses   SysUtils, Classes, Controls, Graphics, Messages, ExtCtrls, Windows, Forms, Consts;   type   TCheckBoxImage = class(TImage)   private     FImgChecked, FImgUnchecked : TPicture;     FChecked : boolean;     procedure setchecked(Value : Boolean);     procedure setImgChecked(Value : TPicture);     procedure setImgUnchecked(Value : TPicture);   protected   public     constructor Create(AOwner: TComponent); override;     destructor destroy; override;     procedure Click; override;   published     property Checked : Boolean read FChecked write setchecked;     property ImgChecked : TPicture read FImgChecked write setImgChecked;     property ImgUnchecked : TPicture read FImgUnchecked write setImgUnchecked;   end;   procedure Register;   implementation   constructor TCheckBoxImage.Create(AOwner: TComponent); begin   inherited Create(AOwner);   FImgChecked := TPicture.Create;   FImgUnchecked := TPicture.Create;       Picture.Assign(FImgUnchecked); //letzer test Eintrag ;)     end;   destructor TCheckBoxImage.destroy; begin   FImgChecked.Free;   ImgUnchecked.Free;   inherited Destroy; end;   procedure TCheckBoxImage.Click; begin   Checked := not(Checked);   inherited Click; end;   procedure TCheckBoxImage.setchecked(Value : Boolean); begin   FChecked := Value;   if FChecked then Picture.Assign(FImgChecked) else Picture.Assign(FImgUnchecked); end;   procedure TCheckBoxImage.setImgChecked(Value : TPicture); begin   FImgChecked.Assign(Value); end;   procedure TCheckBoxImage.setImgUnchecked(Value : TPicture); begin   FImgUnchecked.Assign(Value); end;   procedure Register; begin   RegisterComponents('Zusätzlich', [TCheckBoxImage]); end;   end.

Auf den ersten Blick würde ich sagen fehlt soetwas wie
FImgChecked.LoadFromFile oder so ähnlich.

Du erzeugst die Bilder nur mit Create.
Woher weiß das Programm, welche Bilddaten in das jeweilige Picture gehören?

vop

Die Bilder lad ich mit den Eigenschaften in die Komponente.

Nach dem Delphi neustart ist ja nur die Eigeschaft Picture wieder leer, alles andere bleibt so wie es sein soll.