Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Редактор компонентов

Fedja2003 © (2005-07-28 11:16:00)
Несколько вопросов:
1. Как с помощью редактора компонентов добавить визуальный компонент в форму. Например я создаю новый класс от TEdit, пишу для него редактор компонентов. При срабатывании редактора добавляю Label на форму. Label добавляется, но почему-то его не видно и нельзя изменять его размеры с помощью мыши. Хотя если переоткрыть форму, он уже появляется в нормальном виде.

TFjEdit = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;

TFjEditEditor = class(TComponentEditor)
private
procedure ExecuteVerb(Index: integer); override;
function GetVerb(Index: integer): string; override;
function GetVerbCount: integer; override;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Fj', [TFjEdit]);
RegisterComponentEditor(TFjEdit, TFJEditEditor);
end;

procedure TFjEditEditor.ExecuteVerb(Index: integer);
var FLabel: TLabel;
begin
FLabel := TLabel.Create(nil);
TFjEdit(Component).Owner.InsertComponent(FLabel);
FLabel.Name := 'Label1';
Flabel.Caption := FLabel.Name;
end;

function TFjEditEditor.GetVerb(Index: integer): string;
begin
Result := 'Create Label';
end;

function TFjEditEditor.GetVerbCount: integer;
begin
Result := 1;
end;

2. Как вообще написать компонент, который при создании при разработке может добавить на форму другие компоненты.
Я пробовал так.

constructor TFj.Edit.Create(AOwner: TComponent);
var FLabel: TLabel;
begin
inherited;
FLabel := TLabel.Create(AOwner);
....
end;
При этом Label появляется визуально, но при этом он не появляется в свойствах формы.

3. Как можно задать Name новому компоненту. Когда помещаем на форму компонент Delphi сам присваевает ему имя. Но когда сам создаешь, то должен сам задать ему имя. Есть ли какие-нибудь стандартные методы или надо писать свою процедуру для генерации Name;

Вообще идея такая пишется компонент для редактирования БД, при его создании и указывании таблицы для редактирования он сам создает Labelы и Editы для таблицы. Кто может помочь - пишите.

Юрий Зотов (2005-07-28 14:05:00) [1]
Чтобы контрол стал видимым, ему надо назначить Parent.

Чтобы компонент правильно сохранялся в DFM, его Owber'ом должна быть форма. Есть, правда и другой способ, но в данном случае усложнения не нужны.

А вообще - см. IDesigner. Там и создание компонента, и назначение его имени, и все прочее. Через него работает и сама Delphi.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »