Frame Align := alClient funktioniert nicht

[ak-ac]

Das Problem mit den Frames (auf Tabsheets ?!) kenne ich, da hat bei mir nur ein manuelles Refresh geholfen, damit das nach dem Anzeigen klappt (FormShow war glaube ich zufrüh)...

Meine Vermutung ist, dass Tabsheets das irgendwie nicht weitergeben und dadurch die untergeordneten Elemente keine korrekte Größe darstellen könenn.

[Jens Hartmann]

Ich habe es hinbekommen,

hier die Lösung...

Delphi-Quellcode:

procedure TFrame1.SetPanelHeight;
var
  i : Integer;
begin
  { Ground 1 }
  pnlGroup1.Height := (pnlGround1.Height div 2);
  pnlGroup2.Height := (pnlGround1.Height div 2);
  pnlGroup1.Align := ClTop;
  pnlGroup1.Left := 1;
  pnlGroup1.Top := 1;
  pnlGroup2.Left := 1;
  pnlGroup2.Top := pnlGroup1.Top + pnlGroup1.Height;
  pnlGroup2.Align := ClClient;

  for i := 1 to 8 do
    begin
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Height := pnlGroup1.Height div 8;
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Left := 1;
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Top := 1 +
        (i * pnlGroup1.Height div 8) - pnlGroup1.Height div 8
    end;
  for i := 9 to 16 do
    begin
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Height := pnlGroup2.Height div 8;
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Left := 1;
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Top := 1 +
        ((i-8) * pnlGroup2.Height div 8) - pnlGroup2.Height div 8
    end;

Gruß Jens

[uligerhardt]

Zitat von Jens Hartmann:

Ich habe es hinbekommen,

Cool.

Noch etwas Genörgel am Rande. Statt sowas:

Zitat von Jens Hartmann:

Delphi-Quellcode:

  for i := 1 to 8 do
    begin
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Height := pnlGroup1.Height div 8;
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Left := 1;
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Top := 1 + (i * pnlGroup1.Height div 8) - pnlGroup1.Height div 8
    end;

nimm doch lieber eine Variable:

Delphi-Quellcode:

var
  pnl: TPanel;

  for i := 1 to 8 do
  begin
    pnl := (FindComponent('pnl'+IntToStr(i)) as TPanel);
    pnl.Height := pnlGroup1.Height div 8;
    pnl.Left := 1;
    pnl.Top := 1 + (i * pnlGroup1.Height div 8) - pnlGroup1.Height div 8
  end;

So ist es lesbarer und schneller.
Und im konkreten Fall, wo du mehrere Positionsproperties auf einmal setzt, würde ich mir mal SetBounds anschauen.

[Hawkeye219]

Hallo,

hier ist noch ein Tipp: TGridPanel

Gruß Hawkeye

[Jens Hartmann]

Hallo und schönen guten Abend zusammen,

erstmal besten Danke für die guten Ideen. Ich habe allerdings ein echt seltsames Verhalten beim Gridpanel.

Die Kompo ist soweit ich das sehen kann, genau die Lösung die ich Suche. Allerdings nachdem ich Sie eingerichtet habe und als Frame implementiert habe, kommt beim kompilieren immer unten angehangener Fehler.

Das seltsame ist, das das erst nach schließen des Projektes auftritt. Ich erstelle ein Grid Panel mit 8 Gleichen Feldern. Die Prozentualle Einteilung mach ich im Constructor des Frames...

Delphi-Quellcode:

constructor TFrame2.Create(AOwner: TComponent) ;
var
  i : Integer;
begin
  inherited Create(AOwner);
  grindpnlGround.ColumnCollection.BeginUpdate;
  for i := 0 to 3 do
    begin
      grindpnlGround.ColumnCollection[i].SizeStyle := ssPercent;
      grindpnlGround.ColumnCollection[i].Value     := 25;
    end;
  for i := 0 to 1 do
    begin
      grindpnlGround.RowCollection[i].SizeStyle := ssPercent;
      grindpnlGround.RowCollection[i].Value     := 50;
    end;
  grindpnlGround.ColumnCollection.EndUpdate;
end;

Wie gesagt, das ganze funktioniert bis nach dem schließen des Projektes. Öffne ich das Projekt erneut, ist der Fehler da. Löschen ich dann alle GridPanels, und lege Sie neu ins Frame, geht alles wieder, allerdings wieder nur bis zum nächsten schließen.

Irgend jemand eine Idee.

Gruß Jens

[Jens Hartmann]

Eventuell doch jemand eine Idee. Ich habe das ganze jetzt noch mehrmals in allen möglichen Varianten durchgespielt, und immer mit dem selben Ergebnis.

Das Problem ist ja, das es bis zum schließen immer ohne Problem funktioniert.

Gruß Jens

[stahli]

Tritt der Fehler auch auf, wenn Du alles nach inherited ausklammerst?