GridPanel mit gleicher Spalten und Zeilenbreit erstellen.

[Chemiker]

Hallo,

hat sich erledigt.

BeginUdate und EndUpdate vergessen.

Delphi-Quellcode:

var
  Anzahl: integer;
  SpaltenBreite: double;
  I: Integer;
begin

  GridPanel1.ColumnCollection.BeginUpdate;
  Anzahl:= GridPanel1.ColumnCollection.Count;
  SpaltenBreite:= 100/Anzahl;
  for I := 0 to GridPanel1.ColumnCollection.Count-1 do
  begin
    GridPanel1.ColumnCollection.Items[i].Value:= SpaltenBreite;
  end;
  for I := 0 to GridPanel1.ColumnCollection.Count-1 do
  begin
    Showmessage(floattostr(GridPanel1.ColumnCollection.Items[i].Value));
  end;
  GridPanel1.ColumnCollection.EndUpdate;
end;

Bis bald Chemiker