Guten Morgen,
wie kann ich das folgende Objekt:
Delphi-Quellcode:
unit VariaJob;
interface
uses
System.Collections;
type
TVariaJob =
class
private
m_VariaObjects : ArrayList;
m_CurrentSerial :
string;
m_MultiUse : boolean;
m_JobQuantity : integer;
m_MultiPartsCount : integer;
m_MultiPartsQuantity : integer;
public
//Eine Liste die alle im Job vorhandenen Variablen Objekte enthält
property VariaObjects : ArrayList
read m_VariaObjects;
//Die letzte vergebene Seriennummer
property CurrentSerial :
string read m_CurrentSerial
write m_CurrentSerial;
//Gibt an, ob der Nutzer Mehrfachnutzen wünscht
property MultiUse : boolean
read m_MultiUse
write m_MultiUse;
//Gibt an, wie oft der Job gelasert werden soll
property JobQuantity : integer
read m_JobQuantity
write m_JobQuantity;
//alle im job vorhandenen multiparts
property MultiPartsCount : integer
read m_MultiPartsCount
write m_MultiPartsCount;
//die anzahl der vom Benutzer gewünschten Multiparts
property MultiPartsQuantity : integer
read m_MultiPartsQuantity
write m_MultiPartsQuantity;
constructor Create;
end;
implementation
constructor TVariaJob.Create;
begin
inherited Create;
m_VariaObjects := ArrayList.Create();
end;
end.
in einem PropertyGrif anzeigen lassen. Hab das ganze wie in einem C# Tutorial gemacht mit:
Delphi-Quellcode:
//Funktioniert:
vJob := TVariaJob.create();
m_MainForm.PropertiesGrid.SelectedObject := vJob.VariaObjects;
//Funktioniert aber nicht:
vJob := TVariaJob.create();
m_MainForm.PropertiesGrid.SelectedObject := vJob;
Warum funktioniert das erste, das zweite aber nicht???
Wie kann ich in Delphi [CategoryAttribute] hinzufügen???
Danke,
winx