jehu ^^
Problem gelöst ...
Uns zwar mit einer "CLASS VAR Button : TButtons;" VAR leider nicht das Beste (geht bestimmt auch anders...) aber so gehts ...
Delphi-Quellcode:
TYPE TButtons = record
PRIVATE
CLASS VAR Button : TButtons;
PROCEDURE SetCaption(ACaption:String='Close');
FUNCTION GetCaption:String;
PROCEDURE SetOnKlick(Sender: TObject);
PROCEDURE SetVisible(AVisible:Boolean=TRUE);
FUNCTION GetVisible:Boolean;
PUBLIC
PROCEDURE Create;
PROPERTY Caption:String READ GetCaption WRITE SetCaption;
PROCEDURE Show;
PROPERTY Visible:Boolean READ GetVisible WRITE SetVisible;
END;
SRKIBNewButton.OnClick := Button.SetOnKlick;