Einzelnen Beitrag anzeigen

Benutzerbild von Codehunter
Codehunter

Registriert seit: 3. Jun 2003
Ort: Thüringen
2.272 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Komponenten Erstellung

  Alt 28. Feb 2013, 12:06
Gleiches Problem - gleiche Antwort: TAxis ist als Record implementiert und bei einen Record-Property kann man nicht schreibend auf die einzelnen Elemente im Record zugreifen. Implementiere TAxis so:
Delphi-Quellcode:
Type TAxis=class(TObject)
private
   FAktiv:boolean;
   FColor:Tcolor;
   FPosition:TOrientierung;
   FText:String;
   FTextpos:TPoint;
   FFont:TFont;
public
   property Aktiv: Boolean read FAktiv write FAktiv;
   property Color: TColor read FColor write FColor;
   property Position: TOrientierung read FOrientierung write FOrientierung;
   property Text: String read FText write FText;
   property TextPos: TPoint read FTextPoint write FTextPoint;
   property Font: TFont read FFont write FFont;
end;
Beim Instantiieren und Freigeben von TKurve auch jede Instanz von TAxis mit zu behandeln. Vorsicht beim TFont, das ist an sich schon eine Klasse und hat womöglich einen eigenen Eigentümer. Doppeltes Freigeben belohnt die Runtime mit heißen Ohren.

Wenn du die Elemente von TAxis im Objektinspektor bearbeiten willst, musst du TAxis von TPersistent ableiten und nicht TObjekt - das geht aus deinem Post nicht hervor.
Ich mache grundsätzlich keine Screenshots. Schießen auf Bildschirme gibt nämlich hässliche Pixelfehler und schadet der Gesundheit vom Kollegen gegenüber. I und E zu vertauschen hätte den selben negativen Effekt, würde aber eher dem Betriebsklima schaden

Geändert von Codehunter (28. Feb 2013 um 12:10 Uhr)
  Mit Zitat antworten Zitat