Советы по Delphi
Компонент со вложенной панелью
Следующий небольшой компонент представляет собой панель, содержащую другую, вложенную панель. Во вложенной панели могут быть размещены другие компоненты, читаться они будут правильно. Ключевым моментом здесь является перекрытие методов WriteComponents и ReadState.
|
unit RzPnlPnl;
interface uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TSubPanel = class(TPanel) protected procedure ReadState( Reader : TReader ); override; end; TPanelPanel = class(TPanel) private FSubPanel : TSubPanel; protected procedure WriteComponents( Writer : TWriter ); override; procedure ReadState( Reader : TReader ); override; public constructor Create( AOwner : TComponent ); override; end; procedure Register; implementation procedure TSubPanel.ReadState( Reader : TReader ); var OldOwner: TComponent; begin OldOwner := Reader.Owner; { Сохраняем старого владельца, что необходимо для PanelPanel } Reader.Owner := Reader.Root; { Задаем в качестве владельца форму } try inherited ReadState(Reader); finally Reader.Owner := OldOwner; end; end; constructor TPanelPanel.Create( AOwner : TComponent ); const Registered: Boolean = False; begin inherited Create( AOwner ); FSubPanel := TSubPanel.Create( Self ); FSubPanel.Parent := Self; FSubPanel.SetBounds( 20, 20, 200, 100 ); FSubPanel.Name := 'SomeName'; if not Registered then begin Classes.RegisterClasses([TSubPanel]); { так TSubPanel может храниться в файле формы } Registered := True; end; end; procedure TPanelPanel.ReadState( Reader : TReader ); var OldOwner: TComponent; I: Integer; begin for I := 0 to ControlCount - 1 do Controls[ 0 ].Free; OldOwner := Reader.Owner; Reader.Owner := Self; {Для чтения субкомпонентов, установите данный экземпляр в качестве родителя} try inherited ReadState(Reader); finally Reader.Owner := OldOwner; end; end; procedure TPanelPanel.WriteComponents( Writer : TWriter ); var I: Integer; begin for I := 0 to ControlCount - 1 do Writer.WriteComponent(Controls[I]); end; procedure Register; begin RegisterComponents( 'Samples', [ TPanelPanel ] ); end; end. |
- Ray Konopka [000947]
