And two labels on a form must have distinct names. So two forms owned by applications must have distinct names. All components of one component (Owner) must have distinct names. You don't need to write any further code.Writing and Reading components from/to LFMSee unit lresources function ReadComponentFromTextStream and WriteComponentAsTextToStream for examples.Writing and Reading components from/to XMLStreaming components is simple:See the example in lazarus/examples/xmlstreaming/.Names. TypeTM圜omponent = class(TComponent)privateFID: integer FRect1: TRect FRect2: TRect protectedprocedure DefineProperties(Filer: TFiler) override publicproperty Rect1: TRect read FRect1 write FRect1 property Rect2: TRect read FRect2 write FRect2 publishedproperty ID: integer read FID write FID end procedure TM圜omponent.DefineProperties(Filer: TFiler) begininherited DefineProperties(Filer) DefineRectProperty(Filer, 'Rect1', 'Rect2', component can now be saved, loaded or used by the.
0 Comments
Leave a Reply. |