AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Fehlender Scrollbalken bei TStringgrid

Ein Thema von schuetzejanett · begonnen am 2. Jan 2007 · letzter Beitrag vom 2. Jan 2007
Antwort Antwort
schuetzejanett

Registriert seit: 5. Apr 2006
Ort: Fraureuth
62 Beiträge
 
#1

Fehlender Scrollbalken bei TStringgrid

  Alt 2. Jan 2007, 09:54
Hallo,

erstelle dynamisch einige panels auf denen sich eine pageontrol komponente mit zwei seiten befindet und auf jeder ist ein stringrid.

Allerdings habe ich bei den stringgrids keinen vertikalen scrollbalken obwohl ich es eingestellt habe.

Hier mein Quellcode, die anderen komponenten die sich ´noch auf dem panel befinden hab ich mal entfernt damit man besser durchsieht

Delphi-Quellcode:
for i := high(apanel) downto 0 do
    begin
     apanel[i] := Tpanel.Create(self);
     with apanel[i] do
      begin
        parent := self;
        Bevelouter := bvNone;
        autosize := true;
        Caption := '';
        height := 50;
        Width := 115;
        if ((i mod 2) = 0 )then left := 25 else left := 230;
        top := 85 +(100* (i div 2));
        visible := true;

      end;
....

 aPageControl[i] := TPageControl.Create(self);
      with aPageControl[i] do
        begin
          visible := false;
          parent := apanel[i];
          top := 50;
          width := 200;
          for j := Low(TabTitles) to High(TabTitles) do
          begin
          atabsheet[j] := TTabSheet.Create(aPageControl[i]) ;
            with atabsheet[j] do
               begin
                  PageControl := aPageControl[i];
                  Name := 'ts' + TabTitles[j];
                  Caption := TabTitles[j];
                  astringgrid[j] := TStringgrid.Create(atabsheet[j]);
                  with astringgrid[j] do
                    begin
                    parent := atabsheet[j];
                    top:=40;
                    scrollbars := ssvertical;
                   // autosize := true;
                    if j = 0 then
                      begin
                        rowcount := 2;
                        colcount := 4;
                        defaultcolwidth := 40;
                        colwidths[0] := 20 ;
                        cells[1,0]:= '1';
                        cells[2,0]:= '2';
                        cells[3,0]:= '3';
                        cells[0,1] := '1';
                      end
                    else
                      begin
                         colcount := 2;
                         fixedCols := 0;
                         defaultcolwidth := 60;
                         cells[0,0]:= 'Feld';
                         cells[1,0]:= 'Treffer';
                         rowcount := 10;
                      end;
                    end
                   end;
               end;
  Mit Zitat antworten Zitat
schuetzejanett

Registriert seit: 5. Apr 2006
Ort: Fraureuth
62 Beiträge
 
#2

Re: Fehlender Scrollbalken bei TStringgrid

  Alt 2. Jan 2007, 09:57
Habe doch noch eine Lösung gefunden es lang an einer fehlender width angabe
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:27 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf