Скачать: CL | DM;

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

← →
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)

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

---

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

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

На Паскале - должен. Но это не Паскаль.
:о)

---

← →
ZeroDivide ©   (2008-11-28 12:41) [8]

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

---

← →
Anatoly Podgoretsky ©   (2008-11-28 13:27) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c