Einzelnen Beitrag anzeigen

v2afrank

Registriert seit: 9. Mai 2005
Ort: Bocholt
573 Beiträge
 
Delphi XE2 Professional
 
#13

Re: Eigenschaftenfenster wie OI

  Alt 19. Okt 2007, 07:23
Ja kann man. Über die Zeile
TJvInspectorVarData.New(InspCat, 'String', TypeInfo(String), @control.Name).DisplayName := _('Name'); weise ich der Komponente die Möglichkeit zu den Namen des Labels zu ändern. Er verändert dabei direkt die Variable Control.name, die vom Typ String ist. Wäre diese Zeile nicht drin, würde im OI keine Eigenschaft Name auftauchen.

Bei
Delphi-Quellcode:
Boolvariable:=TLabel(control).Transparent;
    TJvInspectorVarData.New(InspCat, 'Transparent', TypeInfo(Boolean), @Boolvariable).DisplayName := _('Transparent');
wird die Variable Boolvariable verändert.
Im JvInspector1DataValueChanged passiert dann damit die folgende Zuweisung
Delphi-Quellcode:
 if control is tlabel then //Control ist hier meine interne Referenz auf das zu verändernde Objekt
       begin
        if (data.Items[0].DisplayName=_('Transparent')) then
         tlabel(control).Transparent:=BoolVariable;
        //Noch weitere Abfragen des Labels
       end;
  Mit Zitat antworten Zitat