Property aus eigener Klasse nicht sichtbar

[glunzl]

Hallo!

Die Klasse TDatPanel ist in ihrere eigenen Unis DatPanel geschrieben.
Aus einer anderen Unit (die von Form1, bei mir Main) möchte ich nun auf die Eigenschaft "property MinPanelHeight", mit Hilfe der automatischen Codevervollständigung (Objekt.Eigenschaft) zugreifen. Inzwischen habe ich die Property in einen Publisched Bereich geschrieben, brachte allerdings kein Erfolg.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  aDP: Array [0..15] of TDatPanel ;
  i : integer ;
begin
  for i := 0 to 15 do begin
    aDP[i] := TDatPanel.Create(ScrollBox);
    aDP[i].Parent := Scrollbox ;
    aDP[i].Height := DatPanel.MinPanelHeight // So hatte ich mir das vorgestellt
                                             // Hier wird mir nicht mein Property "MinPanelHeight" 
                                             // nach dem Punkt angeboten
    aDP[i].Top := i * aDP[i].Height ;
    aDP[i].Width := Scrollbox.ClientWidth ;
    end ;
end;

[Jürgen Thomas]

Zitat:

Zitat von glunzl

In meiner eigenen Klasse habe ich eine Eigenschaft deklariert. Mit einer Read Methode möchte ich darauf zugreifen. Es werden mir aber beim Zugriff nur die Konstanten angeboten.

Delphi-Quellcode:

type TDatPanel = class(TPanel)
  private
    fLabel : Array [0..AnzLabelsProPanel - 1] of TLabel ;
    function GetMinPanelHeight: Integer ;
  public
    constructor Create(AOwner: TComponent); override ;
    procedure Resize; override ;
    property MinPanelHeight : Integer read GetMinPanelHeight ;
  end ;

Ich vermute einmal: Das eigentliche Problem liegt darin, dass MinPanelHeight als read-only-Eigenschaft festgelegt wurde, die Read-Funktion nur die Konstanten auswertet und es keine Stelle gibt, an der irgendwelche Werte verändert werden.

Vielleicht entspricht folgendes Verfahren Deinen Intentionen:

Delphi-Quellcode:

private FMinPanelHeight : integer;
property MinPanelHeight : Integer read FMinPanelHeight write SetMinPanelHeight;
...
procedure TDatPanel.SetMinPanelHeight(Value: integer);
var i: integer;
begin
  i := GetMinPanelHeight;
  if (i <= Value)
  then FMinPanelHeight := Value
  else FMinPanelHeight := i;
end;

Gruß Jürgen

[/edit]Nachtrag

Zitat:

Zitat von glunzl

Aus einer anderen Unit (die von Form1, bei mir Main) möchte ich nun auf die Eigenschaft "property MinPanelHeight", mit Hilfe der automatischen Codevervollständigung (Objekt.Eigenschaft) zugreifen.

Ich könnte mir vorstellen, dass daran die Optimierung durch den Compiler schuld ist: Weil
GetMinPanelHeight ausschließlich auf Konstante zugreift, kann auch das Ergebnis und damit die "Eigenschaft" MinPanelHeight als Konstante verstanden werden, sodass es deshalb bei der Codevervollständigung nicht angeboten wird.

[Jelly]

Zitat:

Zitat von glunzl

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  aDP: Array [0..15] of TDatPanel ;
  i : integer ;
begin
  for i := 0 to 15 do begin
    aDP[i] := TDatPanel.Create(ScrollBox);
    aDP[i].Parent := Scrollbox ;
    aDP[i].Height := DatPanel.  // <----------     Hier wird mich nicht mein Property "MinPanelHeight" angeboten
    aDP[i].Top := i * aDP[i].Height ;
    aDP[i].Width := Scrollbox.ClientWidth ;
    end ;
end ;

Was soll denn hier Datpanel sein. Als Objekt ist das gar nicht definiert, sondern bei Dir nur als Unit...

Versuchs also mal so:

Delphi-Quellcode:

    aDP[i].Height := aDP[i].MinPanelHeight ;

[ChrisE]

Hallo grunzl,

die Antworten genau lesen, man hat dir bereits geholfen:

Zitat:

Zitat von Hawkeye219

Hallo glunzl,

DatPanel ist der Name der Unit. Welche Eigenschaften erwartest du da?

Gruß Hawkeye

Der Quelltext sollte also etwas so lauten:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  aDP: Array [0..15] of TDatPanel ;
  i : integer ;
begin
  for i := 0 to 15 do begin
    aDP[i] := TDatPanel.Create(ScrollBox);
    aDP[i].Parent := Scrollbox ;
    aDP[i].Height := aDP[i].MinPanelHeight;//A C H T U N G // Hier wird mich nicht mein Property "MinPanelHeight" angeboten
    aDP[i].Top := i * aDP[i].Height ;
    aDP[i].Width := Scrollbox.ClientWidth ;
    end ;
end;

An der Stelle A C H T U N G hast du versucht auf die Unit der Komponete zu zugreifen. Diese "kennt" aber keine Funktion mit dem Namen MinPanelHeight. Diese kennt nur die Klasse. Somit zugriff nur über eine Instanz der Klasse. Wenn deine Berechnung wie in diesem Beispiel aber nur von Konstanten abhängig ist und nicht von Eigenschaften der Klasse, dann mach doch eine Funktion draus die Klassenunabhängig ist.

Gruß, Chris

// Edit: Da war jemand schneller als ich ;-) Look @ Jelly

[glunzl]

@Jelly: Bingo! Das wars

Delphi-Quellcode:

aDP[i].Height := aDP[i].MinPanelHeight ;

:wall: Danke!

@ChrisE: Genau lesen ist ja so eine Wissenschaft für sich ...

Zitat:

Wenn deine Berechnung wie in diesem Beispiel aber nur von Konstanten abhängig ist und nicht von Eigenschaften der Klasse, dann mach doch eine Funktion draus die Klassenunabhängig ist.

Ich habe die Konstanten hier reingeschrieben, weil ich die Anzahl, bzw. Abmessungen der Labels evtl. nochmal ändern möchte und sie so nicht durch den ganzen Text suchen muß.

Dank an alle!

glunzl