Ein Panel an eine Instanz einer Klasse TBall übergeben

[Smiley]

@Venice2
Danke für Deine Hilfe Venice2

Das mit den $Region´s kannte ich noch gar nicht.
Tolles Feature um den Quelltext lesbarer (zusammmenklappbar über mehrere Proceduren) zu machen.


Die procedure InitPath verwirrt mich etwas. Die beiden If/else Zweige führen den gleichen Befehl aus, habe ich da etwas übersehen ?
Möglicherweise ein Überbleibsel aus einer Zeit als TiniFile.Create noch nicht automatisch die Ini-Datei angelegt hat?

Code:

procedure InitPath;
begin
  UserAppDataDir := GetSpecialFolder(CSIDL_APPDATA);
  if FileExists(UserAppDataDir +  '\BrewIdeas\Bounce' + '\Bounce.ini') then
    BounceIni := TIniFile.Create(UserAppDataDir + '\BrewIdeas\Bounce' + '\Bounce.ini')
  else
    BounceIni := TIniFile.Create(UserAppDataDir + '\BrewIdeas\Bounce' + '\Bounce.ini');
end;

Hast Du irgend eine Art von Dokumentation zu den wichtigsten Befehle der SKAeroAPI.
Der SourceCode ist schon gut Dokumentiert.
Sonst schreib ich mir dazu etwas um leichter die API verwenden und erklären zu können.
Das verwende ich dann für die Stufe 2 des Ball Projektes für meine Praktikanten.

Das Projekt lässt sich nicht compilieren, da er die Unit Graphics nicht findet, da du da scheinbar deine eigene Graphics.pas benutzt hast um die VCL zu umgehen, nehme ich an.
Was muss dafür noch eingestellt werden im Compiler?
Ist die SKAeroAPI überhaupt dabei? Habe im .pas File eigentlich nur Procedure-Definitionen gesehen, braucht man da noch eine .dcu dazu, die nicht mitgeliefert ist?