Labels mit Stringgrid synchronisieren

[Sharky]

Zitat von Hansa:

... Im Prinzip bräuchte ich nur die Breite der einzelnen Spalten.

Ich habe das mal mit einem Panel, einen StringGrid und einer Statusbar gemacht. Statusbar auf das Panel (Align := alBotton), StringGrid auf das Panel (Align := alClient).

Im FormCreate dann:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ndx : integer;
  statPanel : TStatusPanel;
begin
  for ndx := 0 to Pred(StringGrid1.ColCount) do
  begin
    statPanel := StatusBar1.Panels.Add;
    statPanel.Width := StringGrid1.ColWidths[ndx];
  end;
end;