Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.01.25;
Скачать: 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 вся ветка

Текущий архив: 2009.01.25;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.012 c
15-1227448089
Григорьев Антон
2008-11-23 16:48
2009.01.25
Тесты на знание Delphi


2-1228835429
Илья_
2008-12-09 18:10
2009.01.25
Вопрос по таблице ASCII и отображению символа "минус"


6-1197396798
istok
2007-12-11 21:13
2009.01.25
стабильный и мощный FTP - реально?


1-1207216284
TamRAzZ
2008-04-03 13:51
2009.01.25
TMemo без фона


15-1228059252
ЭРИКА
2008-11-30 18:34
2009.01.25
С ДНЕМ РОЖДЕНИЯ !