Форум: "Прочее";
Текущий архив: 2009.01.25;
Скачать: [xml.tar.bz2];
Вниз
Необходимо создать компанент Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
