Einzelnen Beitrag anzeigen

Benutzerbild von kiar
kiar

Registriert seit: 2. Aug 2003
Ort: Aschersleben
1.362 Beiträge
 
Delphi 5 Professional
 
#22

Re: Listview Spalten zur Laufzeit?

  Alt 30. Apr 2004, 03:55
hallo celina folgender quelltext, liefert zu mindestens erstmal die spaltennamen
Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, CheckLst, ComCtrls;
const
spalten = 3;
listcolum: array[0..spalten-1] of string = ('kunde','num','auftrag');
type
  TForm1 = class(TForm)
    
    btn1: TButton;
    ListView1: TListView;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var
  i:integer;
  col:TListColumn;
begin
   for i:=0 to high(listcolum) do
   begin
    col:=listview1.Columns.Add;
    col.Caption:=listColum[i];
   end;
end;

end.
einfach ein button und ein listview auf die form, versuche erstmal das listview zu verstehen.

so das wars für heute , bis morgen raik
verhältnisse die einem nicht passen,
muss man verändern oder verlassen
  Mit Zitat antworten Zitat