Panel mit Label dynamisch erzeugen

[hans ditter]

Hallo liebe DP,
ich bin's nochmal, diesmal mit 'ner anderen Frage...

Ich schreibe gerade an einem Kontoprogramm, wo man seine Ausgaben und Einnahmen eintrage kann, seinen Kontostand etc. sieht. Ich möchte nun in der unteren Hälfte der Form ein Bereich machen, in dem Panels angezeigt werden, auf denen wiederum versch. Labels angezeigt werden.
Allerdings müssen die Panels ja während der Laufzeit erzeugt werden.
Wie ich EIN Panel dynamisch erzeuge, ist mir klar, aber wie ich ein Panel, auf dem noch mehrere Labels sind, während der Laufzeit erzeuge, weiß ich nicht.
Ach ja, dass ist vlt noch wichtig: Die Panels sollen logischerweise alle gleich aussehen, also soll immer das gleiche Panel mit anderem Namen eingefügt werden.

LG, hans ditter

[mkinzler]

-Erzeugung des Panels
-Erzeugung der Labels mit Panel als Owner + Parent

[himitsu]

Zitat von mkinzler:

-Erzeugung des Panels
-Erzeugung der Labels mit Panel als Owner + Parent

oder du schaust dir mal Frames an (also statt des Panel ein Frame)

oder man erstellt sich eine neue Komponente (von TPanel abgeleitet, welches in seinem Constructor die Labels erstellt

oder
oder
oder

[mkinzler]

-Oder den gleichen und tauscht nur die Inhalte aus
-PageControl mit ausgeblendeten Tabs
...

[hans ditter]

wozu würdet ihr mir denn raten? Ich bin noch relativ neu bei Delphi.
(persöhnlich würde ich ja gerne mal ausprobieren, eine neue Komponente zu erstellen... aber das stell ich mir schwierig vor)

[DeddyH]

Obwohl ich selbst noch nie damit gearbeitet habe denke ich, Frames dürften das Einfachste sein.

[stahli]

Hallo Hans,

soooo schwierig ist es eigentlich nicht, eine Komponente zu erstellen.
Ich habe selbst als erstes ein rotes Panel erstellt und war ganz stolz

Ich glaube nur, mit dem Turbo Delphi kannst Du keine eigenen Komponenten in die Palette aufnehmen. Du könntest aber zur Laufzeit problemlos DEINE Komponente erzeugen, die dann gleich Labels o.ä. beinhaltet.

Mein Tipp: Versuche erst mal ein farbiges Panel (ein Tutorial wird sich finden), dann hast Du schon mal das Prinzip fertig. Dann die Farbe wieder weg und statt dessen ein paar Labels drauf...

Wirst sehen, das macht Spaß

[hans ditter]

@ stahli Hm, ich will ja keinem zu nahe treten und korrigiere mich, falls ich falsch liege, aber kann man ein Panel nicht mit den Standardfarben über die Caption Color färben?

Auf jeden Fall erstmal ein großen Dank an alle, werd mal die versch. Ideen durchprobieren.

Liebe Grüße, hans ditter

[Hansa]

Zitat von hans ditter:

Allerdings müssen die Panels ja während der Laufzeit erzeugt werden.
Wie ich EIN Panel dynamisch erzeuge, ist mir klar, aber wie ich ein Panel, auf dem noch mehrere Labels sind, während der Laufzeit erzeuge, weiß ich nicht.

Ist doch kein grosses Problem :

Delphi-Quellcode:

procedure TForm2.btn1Click(Sender: TObject);
var i,x,y : Integer;
    NewPanel : TPanel;
begin
   x := 0;
   y := 0;
  for i := 0 TO 9 do begin
    NewPanel := TPanel.Create (Self);
    NewPanel.Name := 'art' + IntToStr(i);
    NewPanel.Color := clYellow;
    NewPanel.Caption := IntToStr(i);
    if (i > 0) then begin
      if (i mod 5) <> 0 then begin
        x := x + 60;
      end
      else begin
        x := 0;
        y := y + 60;
      end;
    end;
    NewPanel.Left := x;
    NewPanel.Top := y;
    NewPanel.Width := 60;
    NewPanel.Height := 60;
    NewPanel.OnMouseDown := MouseDown;
    NewPanel.Parent := Form2;
    NewPanel.Show;
  end;
end;

Das wären die Panele. Jedes braucht jetzt noch ein Label ? Dann noch das hier hintendran hängen.

Delphi-Quellcode:

    NewLabel.Caption := **;
    NewLabel.Font.Style := [fsBold];
    NewLabel.Parent := NewPanel;

[hans ditter]

Hier mal der gesamte Code von meiner Komponente, aber irgendwie funktioniert die nicht so, wie ich will.
1.) Bei der Funktion

Code:

Str(ini.ReadFloat [I]etc.[/I]

sagt Delphi, dass der linken Seite nix zuzuordnen ist...
2.)Dann sagt Delphi auch noch in mehreren Fällen, dass auf die Funktion "Brush" hier nicht zugegriffen werden kann. Ich wollte aber das Panel rot bzw. grün färben lassen, wie mach ich das dann, wenn nicht so?

Hoffe irgendwer kann mir nochmal helfen... LG, hans ditter

Delphi-Quellcode:

unit Panel1;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, StdCtrls, Graphics, IniFiles;

type
  TLabeledPanel = class(TPanel)
  private
    FLabelDatum: TLabel;
    FLabelKurzbeschreibung: TLabel;
    FLabelKategorie: TLabel;
    FLabelBetrag: TLabel;
    FLabelESign: TLabel;
    FImage: TImage;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    procedure Fuellen(ID: string);
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TLabeledPanel]);
end;

constructor TLabeledPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);

  //alle Labels erstellen und Eigenschaften der Labels einstellen

  FLabelDatum:=TLabel.Create(Self);
    FLabelDatum.Parent:=Self;
    FLabelDatum.Width:=56;
    FLabelDatum.Left:=128;
    FLabelDatum.Top:=5;
    FLabelDatum.Caption:='';
  FLabelKurzbeschreibung:=TLabel.Create(Self);
    FLabelKurzbeschreibung.Parent:=Self;
    FLabelKurzbeschreibung.Width:=180;
    FLabelKurzbeschreibung.Top:=24;
    FLabelKurzbeschreibung.Left:=4;
    FLabelKurzbeschreibung.Caption:='';
  FLabelKategorie:=TLabel.Create(Self);
    FLabelKategorie.Parent:=Self;
    FLabelKategorie.Width:=180;
    FLabelKategorie.Top:=43;
    FLabelKategorie.Left:=4;
    FLabelKategorie.Caption:='';
  FLabelBetrag:=TLabel.Create(Self);
    FLabelBetrag.Parent:=Self;
    FLabelBetrag.Width:=60;
    FLabelBetrag.Top:=62;
    FLabelBetrag.Left:=124;
    FLabelBetrag.Caption:='';
  FLabelESign:=TLabel.Create(Self);
    FLabelESign.Parent:=Self;
    FLabelESign.Top:=62;
    FLabelESign.Left:=186;
  FImage:=TImage.Create(Self);
    FImage.Parent:=Self;
    FImage.Left:=5;
    FImage.Top:=62;
end;

destructor TLabeledPanel.Destroy;
begin

  //alle Labels wieder freigeben

  FLabelDatum.Free;
  FLabelKurzbeschreibung.Free;
  FLabelKategorie.Free;
  FLabelBetrag.Free;
  FImage.Free;
  inherited Destroy;
end;

procedure TLabeledPanel.Fuellen(ID: String);
var ini: TIniFile;
begin
  ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'kontoinfo.ini');
  (*Die Labels befüllen; Werte werden aus der Ini 'kontoinfo.ini' mittels dem übergebenen
    Wert in 'ID'*)
  try
    FLabelDatum.Caption:=DateToStr(ini.ReadDate('ID',ID,0));
    FLabelKurzbeschreibung.Caption:=ini.ReadString('Kurzbeschreibung',ID,'0');
    FLabelKategorie.Caption:=ini.ReadString('Kategorie',ID,'0');
    Str(ini.ReadFloat('Betrag',ID,0):9:2,FLabelBetrag.Caption);
      if ini.ReadInteger('Art',ID,-1) = 0 then
        TLabeledPanel.Brush.Color:=cllime
      else
        TLabeledPanel.Brush.Color:=clred
  finally
    ini.Free;
  end;
end;

end.