Советы по Delphi



         

Компонент со вложенной панелью


Следующий небольшой компонент представляет собой панель, содержащую другую, вложенную панель. Во вложенной панели могут быть размещены другие компоненты, читаться они будут правильно. Ключевым моментом здесь является перекрытие методов WriteComponents и ReadState.

unit RzPnlPnl;
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, ExtCtrls;
typeTSubPanel = class(TPanel)protectedprocedure ReadState( Reader : TReader ); override;end;
TPanelPanel = class(TPanel)privateFSubPanel : TSubPanel;protectedprocedure WriteComponents( Writer : TWriter ); override;procedure ReadState( Reader : TReader ); override;publicconstructor Create( AOwner : TComponent ); override;end;
procedure Register;
implementation

procedure
TSubPanel.ReadState( Reader : TReader );varOldOwner: TComponent;beginOldOwner := Reader.Owner; { Сохраняем старого владельца, что необходимо для PanelPanel }Reader.Owner := Reader.Root; { Задаем в качестве владельца форму }tryinherited ReadState(Reader);finallyReader.Owner := OldOwner;end;end;
constructor TPanelPanel.Create( AOwner : TComponent );constRegistered: Boolean = False;begininherited Create( AOwner );
FSubPanel := TSubPanel.Create( Self );FSubPanel.Parent := Self;FSubPanel.SetBounds( 20, 20, 200, 100 );FSubPanel.Name := 'SomeName';
if not Registered thenbeginClasses.RegisterClasses([TSubPanel]); { так TSubPanel может храниться в файле формы }Registered := True;end;
end;
procedure TPanelPanel.ReadState( Reader : TReader );varOldOwner: TComponent;I: Integer;beginfor I := 0 to ControlCount - 1 doControls[ 0 ].Free;
OldOwner := Reader.Owner;Reader.Owner := Self; {Для чтения субкомпонентов, установите данный экземпляр в качестве родителя}tryinherited ReadState(Reader);finallyReader.Owner := OldOwner;end;end;

procedure TPanelPanel.WriteComponents( Writer : TWriter );varI: Integer;beginfor I := 0 to ControlCount - 1 doWriter.WriteComponent(Controls[I]);end;

procedure Register;beginRegisterComponents( 'Samples', [ TPanelPanel ] );end;
end.

- Ray Konopka [000947]




Содержание  Назад