Panel inkl. Labels zur Laufzeit erstellen

[m.wollert]

Und wenn Du alles anstelle eines Frames als "Klasse" machen möchtest, empfehle ich Dir GExperts. Mit diesem Tool kannst Du unter anderem auf dem Formular alles Designen wie Du es später haben möchtest und dann die Komponenten markieren. Ein Rechtsklick und "Components to Code" generiert Dir einen Source in der Zwischenablage. Anbei ein Beispiel:

Delphi-Quellcode:

var
  BitBtn3: TBitBtn;
  DelFilesB: TBitBtn;
  ImportFilesB: TBitBtn;
  InFilesLV: TListView;

  BitBtn3 := TBitBtn.Create(Self);
  DelFilesB := TBitBtn.Create(Self);
  ImportFilesB := TBitBtn.Create(Self);
  InFilesLV := TListView.Create(Self);
  with BitBtn3 do
  begin
    Name := 'BitBtn3';
    Parent := FilesTopP;
    Left := 216;
    Top := 224;
    Width := 97;
    Height := 25;
    Caption := 'BitBtn3';
    TabOrder := 3;
  end;
  with DelFilesB do
  begin
    Name := 'DelFilesB';
    Parent := FilesTopP;
    Left := 112;
    Top := 224;
    Width := 97;
    Height := 25;
    Caption := 'DelFilesB';
    TabOrder := 2;
  end;
  with ImportFilesB do
  begin
    Name := 'ImportFilesB';
    Parent := FilesTopP;
    Left := 8;
    Top := 224;
    Width := 97;
    Height := 25;
    Caption := 'ImportFilesB';
    TabOrder := 1;
  end;
  with InFilesLV do
  begin
    Name := 'InFilesLV';
    Parent := FilesTopP;
    Left := 7;
    Top := 16;
    Width := 730;
    Height := 201;
    Anchors := [akLeft, akTop, akRight, akBottom];
    with Columns.Add do begin 
      Caption := 'Verzeichnis';
      Width := 200;
    end;
    with Columns.Add do begin 
      Caption := 'Datei';
      Width := 100;
    end;
    with Columns.Add do begin 
      Caption := 'Ausgabe';
      Width := 250;
    end;
    with Columns.Add do begin 
    end;
    TabOrder := 0;
    ViewStyle := vsReport;
  end;

Änderungen am Code sind dann leider jedoch nicht mehr soo einfach durchzuführen, wie in der IDE.

Michael:)