nicht schlecht deine komponenten, doch leider habe ich im beispiel buttons zwei fehler gefunden:
einer fehler habe ich gefunden und das problem gelöst:
Delphi-Quellcode:
Procedure TForm3.UpdateList;
Var I:Byte;
Begin
With ListBox1 do Begin
Clear;
Count:=0;
For I:=1 to 9 do Begin
If FileArray[I]='' then Break;
Items.Add(' '+IntToStr(I)+' '+Form2.ShortString(45,FileArray[I]));
Count:=Count+1;
// Inc(Count);
End;
End;
SetButtonFlags;
End;
du kannst nicht überall inc verwenden(warum weiß ich nicht)
und beim zweiten fehler finde ich die ursache leider nicht:
Zitat:
[Fataler Fehler] Das Programm oder die
Unit 'Buttons' ruft sich selbst wieder auf