Ich bin gerade dabei mir eine neue Komponente abzuleiten:
Delphi-Quellcode:
unit DWImage;
interface
uses
SysUtils, Classes, Controls, ExtCtrls, Graphics;
type
TDWImage =
class(TImage)
private
{ Private declarations }
FPictureOver: TPicture;
FPictureDisabled: TPicture;
procedure SetPictureOver(Value: TPicture);
procedure SetPictureDisabled(Value: TPicture);
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property PictureOver: TPicture
read FPictureOver
write SetPictureOver;
property PictureDisabled: TPicture
read FPictureDisabled
write SetPictureDisabled;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Datawerk', [TDWImage]);
end;
{ TDWImage }
procedure TDWImage.SetPictureDisabled(Value: TPicture);
begin
FPictureDisabled.Assign(Value);
end;
procedure TDWImage.SetPictureOver(Value: TPicture);
begin
FPictureOver.Assign(Value);
end;
Das ist die
pas-Datei.
Dann habe ich ein neues leeres
Package erstellt, diesem die
Unit mit der Komponente hinzugefügt und erzeugt. Dann habe ich die
IDE neu gestartet und habe das
Package installiert. In der Toolpalette war dann auch ein neuer Seitenreiter mit meiner Komponente. Allerdings, wenn ich die neue Komponente auf mein Formular ziehe und etwas die Maus bewege, insbesondere wenn ich sie über den IE bewege, bekomme ich eine
AV in einem Delphi-
Package (siehe Anhang).