AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Zugriff auf vererbte Eigenschaften

Ein Thema von glunzl · begonnen am 16. Aug 2006 · letzter Beitrag vom 18. Aug 2006
Antwort Antwort
TBx
(Administrator)

Registriert seit: 13. Jul 2005
Ort: Stadthagen
1.912 Beiträge
 
Delphi 12 Athens
 
#1

Re: Zugriff auf vererbte Eigenschaften

  Alt 16. Aug 2006, 22:45
Hallo!
Ich gehe davon aus, dass Du mit einer indizierten Property arbeiten möchtest.
Dann könntest Du die LabelCaptions mit folgender Syntax ansprechen:
aDP[i].LabelText[j] Dazu deklarierst Du Deine Property LabelText im public-Abschnitt (nicht published, das funktioniert nicht) folgendermaßen:

property LabelText [index : integer] : String read GetLabelText write SetLabelText; Deine Getter und Setter Routinen müssen dann so aussehen:
Delphi-Quellcode:
function TDatPanel.GetLabelText(index: integer): String;
begin
  if ((index >= low (flabel)) and (index <= high (flabel))) then
  begin
    Result := flabel [index].Caption;
  end
  else
  begin
    // Fehlermeldung
  end;
end;

procedure TDatPanel.SetLabelText(index: integer; const Value: String);
begin
  if ((index >= low (flabel)) and (index <= high (flabel))) then
  begin
    flabel [index].Caption := Value;
  end
  else
  begin
    // Fehlermeldung
  end;
end;
Zitat:
Und dann noch gemeiner ... Kann man über Scrollbox. ... nach auf die Labels zugreifen?
generell ja. In Deinem jetzigen Aufbau müßtest Du allerdings eine ganze Menge casten.
Ich gehe mal davon aus, dass Du damit liebäugelst, eine Komponente zu bauen, die aus einer Scrollbox besteht, die n Datpanels enthält. In dieser könntest Du dann entsprechend die Properties nach außen durchschleifen.
Du könntest dann in dieser abgeleiteten Scrollbox eine property LabelText einfügen, die über zwei Indexe verfügt, einen für das DatPanel und einen für das Label auf den Panel. Das sähe dann so aus:

Delphi-Quellcode:
TDatScrollBox = class (TScrollBox)
private
    function GetLabelsText(PanelNo, LabelNo: integer): string;
    procedure SetLabelsText(PanelNo, LabelNo: integer; const Value: string);
public
  LabelText [PanelNo, LabelNo : integer]:String read GetLabelText write SetLabelText
end;
Hope it helps

onlinekater

@mkienzler: ?????

@Threadersteller: Titel paßt nicht so ganz, Du möchtest nicht auf vererbte Eigenschaften sondern auf Eigenschaften von Unterkomponenten zugreifen.
Thomas Breitkreuz
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 14:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz