Einzelnen Beitrag anzeigen

MOCI

Registriert seit: 2. Aug 2006
12 Beiträge
 
#3

Re: Komponente existiert bereits beim Öffnen des Projekts

  Alt 15. Sep 2006, 10:18
Sorry, hab beim ersten Post verschrieben. Die Fehlermeldung kommt nicht bei den Columns sonder beim View:

Code:
  ViewVorhanden := False;

  for I := 0 to Self.ViewCount - 1 do
    if Self.Views[I] is TcxGridBandedTableView then
      if TcxGridBandedTableView(Self.Views[I]).Name = Self.Name + 'BandedTableView1' then
        ViewVorhanden := True;

  if not ViewVorhanden then begin
    //Löschen aller Views
    I := Self.ViewCount;
    for J := 0 to Self.ViewCount - 1 do
      Self.Views[0].Free;

    //Erstellen des neuen BandedTableViews
    NeuerView := Self.CreateView(TcxGridBandedTableView);
    NeuerView.Name := Self.Name + 'BandedTableView1';
    Self.ActiveLevel.GridView := TcxGridBandedTableView(NeuerView);

    //Band und Columns Createn und Standardwerte setzen
    StandardBandsCreaten(TcxGridBandedTableView(NeuerView));
    StandardColumnsCreaten(TcxGridBandedTableView(NeuerView));
    StandardWerteSetzen(TcxGridBandedTableView(NeuerView));
  end; // End If
  Mit Zitat antworten Zitat