[Delphi] Object Inspector geeft verkeerde class type aan

[Tomatoman]

Ik heb in Delphi een TDialogManager component geschreven, die een DBLoginDlgOptions property heeft. Deze is van het type TCustomDBLoginDlgOptions; zie het linkerplaatje hieronder. Zodra een extra package wordt geregistreerd, wordt de DBLoginDlgOptions property automatisch vervangen door een data-aware versie van het type TDBLoginDlgOptions. In het rechterplaatje is dit package geregistreerd, waardoor je eigenlijk achter DBLoginDlgOptions de tekst (TDBLoginDlgOptions) zou moeten zien staan. Dat is niet het geval, er staat nog steeds (TCustomDBLoginDlgOptions).

niet data-aware (weergave klopt)	data-aware (weergave is fout)

Om te kijken of ik geen programmeerfout heb gemaakt, heb ik aan TDBLoginDlgOptions even een property DBClassName toegevoegd, die de werkelijke class name weergeeft. Zoals je ziet is dat netjes TDBLoginDlgOptions. Hieruit valt te concluderen dat de Object Inspector naast DBLoginDlgOptions de verkeerde class type weergeeft. Mijn doel zal duidelijk zijn: ik wil dat hier de juiste class type wordt weergegeven (dus soms TCustomDBLoginDlgOptions en soms TDBLoginDlgOptions).

Om te kijken waar het misgaat heb ik de default design-time editor voor class properties, TClassProperty, vervangen door een descendant, TMyClassProperty. Dit is de code:

Delphi:

unit DlgReg;

interface

uses
  Classes, DesignIntf, DesignEditors, Dlg, DlgConsts;

procedure Register;

implementation

type
  TMyClassProperty = class(TClassProperty)
  public
    function GetValue: string; override;
  end;

function TMyClassProperty.GetValue: string;
begin
  Result := inherited GetValue;
  // ShowMessage(Result);

  { inherited GetValue voert welgeteld 1 regel code uit, namelijk:
    FmtStr(Result, '(%s)', [GetPropType^.Name]); }
end;

procedure Register;
begin
  RegisterComponents('Dialogs', [TDialogManager]);
  RegisterPropertyEditor(TypeInfo(TCustomDBLoginDlgOptions), TDialogManager,
    '', TMyClassProperty); 
end;

end.

Het enige doel van deze property editor is dat ik via ShowMessage kan achterhalen wat GetValue retourneert. Dit blijkt altijd de string 'TCustomDBLoginDlgOptions' te zijn, zelfs als het werkelijke type TDBLoginDlgOptions is. Ik heb nog even geprobeerd hier een aparte property editor voor te registreren, maar dat maakte geen verschil. Conclusie: GetPropType^.Name retourneert soms de verkeerde class name.

Hoe krijg ik het voor elkaar dat de Object Inspector de juiste class name aangeeft? Het lijkt me dat ik daarvoor eenvoudigweg moet zorgen dat de property editor de juiste class name achterhaalt in de GetValue functie, maar hoe?

[Tomatoman]

Ik wilde al bijna mijn bed instappen toen ik een ingeving kreeg. Onderstaande code zorgt ervoor dat de class type netjes wordt weergegeven. Het is niet meer dan een slordigheidje in Delphi, maar eigenlijk had mijn prachtige code natuurlijk in TClassProperty moeten zitten.

Delphi:

unit DlgReg;

interface

uses
  Classes, DesignIntf, DesignEditors, Dlg, DlgConsts;

procedure Register;

implementation

type
  TMyClassProperty = class(TClassProperty)
  protected
    function GetClassReferenceAt(Index: Integer): TPersistent; dynamic;
  public
    function GetValue: string; override;
  end;

function TMyClassProperty.GetClassReferenceAt(Index: Integer): TPersistent;
begin
  Result := TPersistent(GetOrdValueAt(Index));
end;

function TMyClassProperty.GetValue: string;
var
  i: Integer;
begin
  Result := GetClassReferenceAt(0).ClassName;
  for i := 1 to PropCount - 1 do
    if GetClassReferenceAt(i).ClassName <> Result then
    begin
      Result := '';
      Break;
    end;
end;

procedure Register;
begin
  RegisterComponents('Dialogs', [TDialogManager]);
  RegisterPropertyEditor(TypeInfo(TCustomDBLoginDlgOptions), TDialogManager,
    '', TMyClassProperty); 
end;

end.

[ Voor 12% gewijzigd door Tomatoman op 22-03-2005 05:01 . Reden: Nog wat verbeterd ]

[tombo_inc]

netjes script, ziet er leuk uit. maar ik neem aan dat je probleem nu opgelost is?

[Tomatoman]

* Tomatoman is weer een happy user