On 5/19/06, A.J. Venter <[EMAIL PROTECTED]> wrote:
I am looking at the notification window but it's slow going, I have never
tried to do a tform descendent component before. I may have to leave it
halfway and just create one built-in for my program with hookups where
needed, and then later do an abstract component.
Are you having difficulties with anything specific? It should look like this:
unit myunit;
type
MyClass = class(TCustomForm)
private
lblTitle: TLabel;
lblText: TLabel;
imgIcon: TImage;
btnX: TButton;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
// publish some properties, others not
end;
then on create you have to create the components:
constructor TMainWindow.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
BorderStyle := bsNone;
lblTitle := TLabel.Create(Self);
lblTitle .Left := 0;
lblTitle .Top := 0;
lblTitle .Width := ?;
lblTitle .Height :=?;
// Initializes the Glass component
lblTitle.Align := alClient;
lblTitle.Parent := Self;
// Connects the methods to events
vGlass.OnClick := HideWindow;
end;
--
Felipe Monteiro de Carvalho
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
