Größere Labels erlauben..

[fabgo]

hallo,

und zwar habe ich folgendes problem.

Über Buttonklick wird meiner Tabelle jeweils eine neue Zeile hinzugefügt...

Das ist auch kein Problem, nur ab der 20. Zeile ist der Rand des Programms und anstatt das es trotzdem weiterläuft, kommt immer ein Fehler...

Wie kann ich diesen beheben..?

Oder kann ich mit Scrollbalken arbeiten??

danke

[Nils_13]

Hi,

zeig mal bitte den Code, den du bisher hast.

[fabgo]

Delphi-Quellcode:

procedure TSpielplan.BtEintragenClick(Sender: TObject);
begin
I:=I+1;
Zahl:=Zahl2+I;
  Label14.Caption := Label14.Caption + FloatToStr(Zahl)+ #13#10 + #13#10;             // Nummer (#13#10 sorgt für Zeilenumbruch)
  Label1.Caption := Label1.Caption + Edit1.Text + #13#10 + #13#10;                 // Datum
  Label15.Caption := Label15.Caption + ComboBox1.Text + #13#10 + #13#10;           // Mannschaftstyp
  Label16.Caption := Label16.Caption + ComboBox2.Text + #13#10 + #13#10;           // Teamgröße
  Label17.Caption := Label17.Caption + ComboBox3.Text + #13#10 + #13#10;           // Spieltyp
  Label18.Caption := Label18.Caption + ComboBox4.Text + #13#10 + #13#10;           // H/A
  Label19.Caption := Label19.Caption + Edit2.Text + #13#10 + #13#10;               // Gegner
  if ComboBox4.Text = 'Heim'
    then begin
      Label20.Caption := Label20.Caption + FloatToStr(StrToFloat(Edit3.Text)-1) + ':' + Edit4.Text + #13#10 + #13#10;
    end
    else begin
      Label20.Caption := Label20.Caption + FloatToStr(StrToFloat(Edit3.Text)-2) + ':' + Edit4.Text + #13#10 + #13#10;  // Treffpunkt
    end;
  Label21.Caption := Label21.Caption + Edit3.Text + ':' + Edit4.Text + #13#10 + #13#10;  // Spielbeginn
  Label22.Caption := Label22.Caption+Edit5.Text + #13#10 + #13#10;                 // Ort
  Label23.Caption := Label23.Caption+ComboBox5.Text + #13#10 + #13#10;             // Betreuer