Eigene Attribute?

[hendy]

Kann man festen Teilen (z.B. Tbutton) zusätzlich Attribute geben?
Wenn ja, wie und wo?

[MacWomble]

Hallo,
ich denke, dies ist durch Ableitung zu erreichen.

[monta]

Einfach eine Classe davon ableiten und dann lediglich die eigenen Sachen Ergänzen und Create und Inherited vererben, bspw.:

Mal ein Beispiel:

Code: Alles auswählen

type
  TExtXMLDocument = class(TXMLDocument)
  private
  public
    procedure LoadFromStream(Stream: TStream);
  end;
 
procedure TExtXMLDocument.LoadFromStream(Stream: TStream);
var XML: TXMLDocument;
begin
  ReadXMLFile(XML, Stream);
  Self.TextContent := XML.TextContent;
end;

Und schon hab ich ein TXMLDocument, was neben allen Eigenschaften die es eh schon hatte, nun auch (wie Delphi) ein LoadFromStream unterstützt. Kannst du mit TButton bspw. genau so machen.

Wenn das ganze als Komponente vorliegen soll, musst du es natürlich noch zum Installieren in die IDE als Package verpacken.

//Womble war schneller

[hendy]

sry, aber das sagt mir garnix
Ich will nur ein Attribut und nicht ne ganze funktion erstellen, z.B. Tbutton.Rang

[monta]

Ein Attribut, und das soll scheinbar ne Zahl sein, interpretier ich Rang da richtig?

Dann nutz doch einfach die verfügbare Eigenschaft TButton.Tag, die gibt es bei allen Komponenten und kann frei für integer vewendet werden.

Ansonsten geht das mit eigenschaften genau so mit OOP:

Code: Alles auswählen

type
  THendyButton = class(TButton)
  private
  public
    Rang: integer;
  end;

Lazarus unterstützt die Package-Geschichte auch, wenn du auf Package > Neues Package gehst und dort auf Hinzufügen > Komponente usw...

Aber ich würde wirklich nochmal überlegen, ob sich das wegen einer simplen Property lohnt, ich denk fast, nicht .

[hendy]

also kann ich unter public rang:=3 definieren und dann im Programm Button1.Rang aufrufen?
Das mit .Tag wird nnicht gehen, sollen so ca 3-4 Attribute werden, strings und integer

[Scotty]

Du leitest eine Klasse ab und definierst zusätzliche Methoden oder Eigenschaften. Diese neue Klasse muss im Programmcode erzeugt werden und ist dann nach Belieben beeinflussbar.

Code: Alles auswählen

type
  THendyButton = class(TButton)
  private
    FRang:integer;
    FOddRang:boolean;
    FIdent:string;
    function GetOddRang:boolean;
  public
    constructor Create...
    property Rang: integer read FRang write FRang;
    property OddRang:boolean read GetOddRang;
    property Ident:string read FIdent write FIdent;
  end;
 
constructor THendyButton.Create...
begin
  inherited;
  FRang:=3;
  FIdent:='Hendys Button';
end;
 
function THendyButton.GetOddRang:boolean;
begin 
   Result:=odd(FRang);
end;
//---------------------
procedure TForm1.OnCreate...
var HendyButton:THendyButton;
begin
  HendyButton:=THendyButton.Create(form1);
  HendyButton.Parent:=form1;
  HendyButton.Top:=10;
  HendyButton.Rang:=1;
  HendyButton.OnClick:=@DoHendyClick;
end;

[monta]

Scotty hat eigentlich alles gesagt...und weil das ganze mit Buttons nicht so schön ist, im Code zu erstellen...im Anhang ein fertiges Paket, was dir das ganze demonstriert. Oben bei FRang... kannst du einfach deine Werte einfügen. Unter Published dann die Zugriffe deklarieren, damit sie auch im Objektinspektor sind und im Create kannst du noch bestimmte Werte als Ausgangswerte definieren.

Der Quelltext sollte selbsterklärend sein, ich hab auf alles unnütze verzichtet.

Einfach in Lazarus Package > Package-Datei öffnen wählen dann die lpk öffnen und anschließend öffnet sich der Package-Dialog wo du den Quelltext von hendybutten.pas noch anpassen kannst und wenn du auf installieren klickst, hast du das ganze oben in der Palette auf der Registerkarte Standard ganz hinten als visuelle Komponente und die neuen eingenschaften sind im OI zu finden.

[hendy]

oh man ich wollte keine Umstände machen ^^ aber trotzdem danke, schau ich mir mal an.

[monta]

naja, ich hatte gerade Zeit