Инспектор объектов Delphi не отображает дополнительные свойства потомков TFrame по дизайну.
Люди склонны предлагать использование известного трюка, который обычно используется для отображения свойств потомка TForm в Инспекторе объектов. Хитрость заключается в следующем: регистрация пользовательского модуля для потомков TForm в Delphi IDE с помощью пакета времени разработки, например:
RegisterCustomModule(TMyFrame, TCustomModule);
Инспектор объектов может отображать дополнительные свойства экземпляра потомка TFrame таким способом, но он теряет свое поведение фрейма, пока он встроен в форму. Не подлежит изменению, не позволяет реализовать события для своих подкомпонентов, и он принимает дочерние элементы управления (что не должно). Но он ведет себя нормально в своей области дизайна.
Похоже, это поведение, предоставляемое Delphi IDE специально для TFrame. Они, вероятно, не являются общими средствами.
Есть ли другой способ сделать это без потери поведения фреймов?
Я использую Delphi 2007
@ Tondrej
Прочитайте комментарии к проблеме, заранее спасибо.
frameunit.dfm:
object MyFrame: TMyFrame
Left = 0
Top = 0
Width = 303
Height = 172
TabOrder = 0
object Edit1: TEdit
Left = 66
Top = 60
Width = 151
Height = 21
TabOrder = 0
Text = 'Edit1'
end
end
unit frameunit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TBaseFrame = Class(TFrame)
protected
Fstr: string;
procedure Setstr(const Value: string);virtual;
published
Property str:string read Fstr write Setstr;
End;
TMyFrame = class(TBaseFrame)
Edit1: TEdit;
private
// This won't be called in designtime. But i need this to be called in designtime
Procedure Setstr(const Value: string);override;
end;
implementation
{$R *.dfm}
{ TBaseFrame }
procedure TBaseFrame.Setstr(const Value: string);
begin
Fstr := Value;
end;
{ TMyFrame }
procedure TMyFrame.Setstr(const Value: string);
begin
inherited;
Edit1.Text := Fstr;
// Sadly this code won't work and Edit1 won't be updated in designtime.
end;
end.
unit RegisterUnit;
interface
procedure Register;
implementation
uses
Windows, DesignIntf, frameunit;
procedure Register;
var
delphivclide: THandle;
TFrameModule: TCustomModuleClass;
begin
delphivclide := GetModuleHandle('delphivclide100.bpl');
if delphivclide <> 0 then
begin
TFrameModule := GetProcAddress(delphivclide, '@Vclformcontainer@TFrameModule@');
if Assigned(TFrameModule) then
begin
RegisterCustomModule(frameunit.TBaseFrame, TFrameModule);
// Just registering that won't cause Tmyframe to loose its frame behaviours
// but additional properties won't work well.
//RegisterCustomModule(frameunit.TMyFrame, TFrameModule);
// That would cause Tmyframe to lose its frame behaviours
// But additional properties would work well.
end;
end;
end;
end.