Hallo!
Ich bastel weiter an meinem Panel, mit Labels (Array) drauf. Das Panel wird von der Form1 in einer Scrollbox erzeugt. Jetzt komme icuh nicht weiter, weil ich es nicht hinbekomme weder aus meiner Klassen-
Unit, noch aus der Main-
Unit auf die Panels, bzw. Labels zuzugreifen.
Delphi-Quellcode:
unit DatPanel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
const
AnzLabelsProPanel = 8 ;
// Anzahl der Label (Zeilen) pro Panel
LabelHeight = 13 ;
// Höhe der Label (Zeilen); an Textgröße anpassen
RandObenuUnten = 4 ;
// Rand oben und unten (jeweils Wert - Rand komplett = 2*Wert)
LabelAbstandlinks = 0 ;
// Abstand links vom Label zum Panel (O = kein li. Rand)
FarbeLabelOdd = clSilver ;
// Farbe der ungeraden Labels
FarbeLabelEven = clMedGray ;
// Farbe der geraden Labels
type TDatPanel =
class(TPanel)
private
fLabel :
Array [0..AnzLabelsProPanel - 1]
of TLabel ;
function GetLabelText:
String;
procedure SetLabelText(
const Value:
String);
public
constructor Create(AOwner: TComponent);
override ;
published
property LabelText :
String read GetLabelText
write SetLabelText ;
end ;
implementation
constructor TDatPanel.Create(AOwner: TComponent);
var
i : integer ;
begin
inherited ;
for i := 0
to AnzLabelsProPanel -1
do begin
fLabel[i] := TLabel.Create(self);
with fLabel[i]
do begin
Parent:= self ;
Top := i * LabelHeight + RandObenuUnten ; Left := LabelAbstandlinks ; Height := LabelHeight ;
Caption := '
TestLine: ' + IntToStr(i+1) ;
Name := '
DatLabel' + IntToStr(i) ;
Tag := i ;
end ;
end ;
end;
function TDatPanel.GetLabelText:
String;
begin
// Großes Fragezeichen wie ich auf das Array der Labels von dieser Unit aus zugreifen kann (Ausser im Constructor)
end;
procedure TDatPanel.SetLabelText(
const Value:
String);
begin
// Großes Fragezeichen wie ich auf das Array der Labels von dieser Unit aus zugreifen kann (Ausser im Constructor)
end;
end.
Der Zugriff aus Form1:
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 ;
aDP[i].Top := i * aDP[i].Height ;
aDP[i].Width := Scrollbox.ClientWidth ;
aDP[i].LabelText // Wie geschieht hier der Zugriff auf das Label-Array des DatPanels?
end ;
end;
Und dann noch gemeiner ... Kann man über
Scrollbox. ... nach auf die Labels zugreifen?
Gruß
glunzl