No soy amigo de aburrir con largos códgos, sin embargo como no sé donde puede estar la falla, intenté hacer un hipotético codigo (suficientemente corto) con el esquema que tanía programado en mi componente para ver si pueden descubrir algo. Imaginen un (inutil, por cierto) editor de botones standard de delphi. El form del editor, tiene un botón (button2) que fija el ancho de la ventana en 500 pixels (acá es donde daría el error).
ACLARO: No probé este editor y además lo armé de memoria en el block de notas de windows, ya que no voy a tener acceso a una máquina con Delphi hasta la noche, así que puede tener más errores. Lo importante es la idea.
Código:
unit ButtonEditor;
interface
uses
Windows, SysUtils, Classes, {....etc, etc...}, DesignIntf, DesignEditors;
type
TfrmButton = class(TForm)
Button1: TButton;
Button2: TButton;
{.......}
procedure Button2Click(Sender: TObject);
{....... y manejo de otras propiedades del botón}
private
public
end;
TButtonEditor = class(TComponentEditor)
function GetVerbCount : integer; override;
function GetVerb(Index : integer) : string; override;
procedure ExecuteVerb(Index : integer); override;
procedure ActualizarComponente(aForm : TfrmButton);
end;
var
frmButton: TfrmButton;
procedure Register;
implementation
{$R *.DFM}
// Form del Editor de propiedades
//**************************************
procedure TfrmButton.Button2Click(Sender: TObject);
begin
FrmButton.Width := 500;
end;
{....... y manejo de otras propiedades del botón}
// Form del Editor de propiedades
//**************************************
function TButtonEditor.GetVerbCount : integer;
begin
Result:=1;
end;
function TButtonEditor.GetVerb(Index : integer) : string;
begin
Result:='E&dit...';
end;
procedure TButtonEditor.ExecuteVerb(Index : integer);
procedure CopyButton(Dest, Source : TButton);
begin
Dest.Caption := Source.Caption;
Dest.Width:=Source.Width;
Dest.Height:=Source.Height;
end;
Var
aForm : TfrmButton;
begin
aForm:=TfrmButton.Create(Application);
try
CopyButton(aForm.Button1, Component As TButton);
if aForm.ShowModal = mrOK then
begin
ActualizarComponente(aForm);
Designer.Modified;
end;
finally
aForm.Free;
end;
end;
procedure TButtonEditor.ActualizarComponente(aForm : TfrmButton);
procedure GetButton(Dest, Source : TButton);
begin
Dest.Caption := Source.Caption;
Dest.Width:=Source.Width;
Dest.Height:=Source.Height;
end;
begin
GetButton(Component As Tbutton, aForm.Button1);
end;
procedure Register;
begin
RegisterComponentEditor(TButton,TButtonEditor);
end;
end.