Stel ik maak een component;
Code:
unit Test;
interface
uses
Windows, SysUtils, Classes, Graphics, Common Controls;
type class(TComponent);
private
{private declarations}
procedure WriteBitmap(Value: TBitmap);
function ReadBitmap: TBitmap;
protected
{protected declarations}
public
{public declarations}
publish
{published declarations}
property Bitmap: TBitmap read ReadBitmap
write WriteBitmap;
end;
var
Bmp: TBitmap;
implementation
procedure WriteBitmap(Value: TBitmap);
begin
Bmp := Value;
end;
function ReadBitmap: TBitmap;
begin
Result := Bmp;
end;
end.
De procedure register is even weggelaten maar als die erbij zou zitten en ik installeer het component dat krijg ik een component wat eigenlijk helemaal aan mijn wensen voldoet maar ik wil alleen weten hoe ik die afbeelding op het component kan veranderen, weet iemand dat mischien?
Thnx,
Lynx
Bookmarks