Forum: Object-Pascal / Delphi-Language
by Delbor,
4. Aug 2015
Hi zusammen
Die Idee aus meinem vorigen Beitrag war wirklich nicht schlecht - sie liefert eine Antwort auf die Frage, die der Threadtitel vorgibt - aber sie ist noch weniger das Gelbe vom Ei, wie das Property 'InstanzName' der Klasse TAttributsClass, da sie zu einem, wie ich meine, ziemlich seltsamen Konstrukt führt:
TAttributsClass = Class(TPersistent)
public
BackGround :...
Forum: Object-Pascal / Delphi-Language
by Delbor,
3. Aug 2015
Hi zusammen
Wie man nur so blind sein kann!! Nochmal zur Erinnerung die CreateAufrufe und die Createprozedur selbst:
constructor TJavaScriptAttriTLBXFrame.Create(AOwner: TComponent);
begin
inherited;
FJavaScriptAttributsList := TDataObjectList<TAttributsClass>.Create();
FJavaScriptAttributsList.OwnsObjects := True;
CreateAttribute(FCommentAttri, 'Kommentare', 'FCommentAttri'); ...
Forum: Object-Pascal / Delphi-Language
by Delbor,
2. Aug 2015
Hi zusammen
Sorry, wenn ich auf Sir Rufos Vorschlag bisher nicht eingegangen bin; der Grund liegt vor allem darin, dass ich bisher sehr wenig mit Generics arbeite, da ich die Dinger zu wenig durchschaue.
Eigentlich ist die einzige generische Klasse, die ich bisher benutze, eine Objectliste, die mir einst DeddyH vorgeschlagen hat. Ein weiterer seiner Vorschläge betraf die Verwendung einer...
Forum: Object-Pascal / Delphi-Language
by Delbor,
2. Aug 2015
Hi zusammen
Vielen Dank für eure Antworten!
@Dejan Vu:
procedure TCssAttriTLBXFrame.CmbxAttributesCloseUp(Sender: TObject);
begin
FActiveAttribut := TAttributsClass(CmbxAttributes.Items.Objects);
Label1.Caption := FActiveAttribut.ClassName; //FActiveAttribut.AttributName; CmbxAttributes.Items;
end;
Forum: Object-Pascal / Delphi-Language
by Delbor,
1. Aug 2015
Hi zusammen
Ich habe eine Klasse, der ich (Schrift-)Attribute zuweisen kann, die ich per eigenem Frame einstelle. Den Frame habe ich hier vorgestellt. Die Klasse sieht ziemlich genau aus, wie der auf der verlinkten Seite vorgestellte Record - eine Klasse ist das Ding nur, weil es einer Objektliste und einer Combobox hinzugefügt wird:
TAttributsClass = Class(TPersistent)
public
...