Hallo!
Ich habe folgendes Problem, in einem meiner Programme hab ich eine TListView Kompo, diese ist hat den Style vsReport und nur eine Spalte, dem entsprechend sollte die Spalte so breit wie die TListView sein. Mit dem Objektinspektor lässt sich das wie folgt realisieren:
1. ViewStyle auf vsReport setzten
2. Unter Columns eine neue Spalte hinzufügen
3. Dieser Spalte eine Caption geben
4. AutoSize dieser Spalte auf True setzen
So, wenn ich das ganze jetzt jedoch durch Quellcode verwirklichen will sieht das wie folgt bei mir aus:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Col: TListColumn;
begin
With ListView1 do
begin
ViewStyle := vsReport;
// ColumnClick := False;
// RowSelect := True;
Col := Columns.Add;
Col.MaxWidth := 0;
Col.MinWidth := 0;
Col.Width := 50;
Col.Caption := 'C:\';
Col.AutoSize := True;
end;
end;
Hat jedoch als Ergebniss nicht den gewünschten Effekt, die somit erzeugte Spalte ist viel kleiner als erwünscht, hab ich da irgendetwas übersehn, oder wo liegt mein Fehler??? Hoffe ihr könnt mir helfen.
[edit=Admin]Neue Delphicode-Tags eingefügt. Mfg. Daniel[/edit]