Необходимо создать компанент

← →
desc (2008-11-28 11:14) [0]

Который бы размешался на ворму, и выполнял при изменении свойства удаления всех TLabel этой формы.
Как произвести поиск всех TLabel на форме из компонента ?

unit uRole; interface uses SysUtils, Classes, Forms; type TRole = class(TComponent) private FBoo: integer; procedure SetBoo(const Value: integer); { Private declarations } protected { Protected declarations } public { Public declarations } constructor Create(AOwner: TComponent); override; //destructor Destroy; override; property Boo: integer read FBoo write SetBoo default False; published { Published declarations } end; procedure Register; implementation procedure Register; begin RegisterComponents("Win32", [TRole]); end; { TRole } constructor TRole.Create(AOwner: TComponent); begin inherited Create(AOwner); end; //destructor TRole.Destroy; //begin //inherited; //end; procedure TRole.Boo(const Value: integer); begin FIdRole := Value; // Parent.Find... ??? end; end.

← →
Юрий Зотов © (2008-11-28 11:19) [1]

if Owner is TForm then do
begin
for i := 0 to Owner.ComponentCount - 1 do
if Owner.Components[i] is TLabel then
Owner.Components[i].Free
end;

← →
desc (2008-11-28 11:29) [2]

> Юрий Зотов © (28.11.08 11:19) [1]

Спасибо. Еще не большой вопросик, а при размещении компонента Owner уже будет существовать или нужно делать Create(Application) //Или как там

???

← →
Игорь Шевченко © (2008-11-28 11:29) [3]

Юрий Зотов © (28.11.08 11:19) [1]

Э...цикл не должен быть обратным ?

← →
Ega23 © (2008-11-28 11:34) [4]

> Э...цикл не должен быть обратным ?

+1

← →
clickmaker © (2008-11-28 11:35) [5]

> при размещении компонента Owner уже будет

будет. Только не Application, а форма

← →
clickmaker © (2008-11-28 11:36) [6]

> [3] Игорь Шевченко © (28.11.08 11:29)

> [4] Ega23 © (28.11.08 11:34)

пришли и все испортили -)

Это Поскаль...

> ZeroDivide (28.11.2008 12:41:08) [8]

Главное после размещения компонента на форме - не дышать, а то получится закат солнца.

Необходимо создать компанент Найти похожие ветки