Hi
Ich hab folgende Komponente + Record:
Delphi-Quellcode:
type
TProcessDescription = packed Record
pdDraw : boolean;
pdHeight : byte;
pdColor : TColor;
pdDrawBackground : boolean;
pdFont : TFont;
end;
TMeinKompo = class(TPanel)
private
{ Private declarations }
FProzDesc : TProcessDescription;
procedure SetProzDesc(Value : TProcessDescription);
public
{ Public declarations }
property ProzDesc : TProcessDescription read FProzDesc write SetProzDesc;
end;
//...
procedure TMeinKompo.SetProzDesc(Value : TProcessDescription);
begin
if not(CompareMem(@Value, @FProzDesc, sizeof(Value))) then
FProzDesc := Value;
end;
Wenn ich nun folgendes Versuche:
Delphi-Quellcode:
var test : TMeinKompo;
begin
test := TMeinKompo.Create(Form1);
test.ProzDesc.pdDraw := true;
end;
Kommt das der Linken Seite nichts zugewiesen kann. Woran liegt das kann ich nicht direkt in den Record schreiben oder habe ich was falsch deklariert?