Deutsches Lazarusforum

Mathias hat geschrieben:Wen dein Panel/Spielfeld nicht das ganze Form ausfülle soll, wäre TScrollBox interessant.

Dann kannst du z.B. auf der Linken Seite des Forms statische Buttons erzeugen, welche nicht scrollen und rechts daneben hast du das scrollende Spielfeld.

Vielen Dank!

Ein möglicher Lösungsansatz:

Form erstellen
Panel auf Form legen
Panel auf benötigte Spielfeldgröße setzen (Height/Width)
wärend des Spielablaufs Position der "Figur" auslesen und Panel.Top Panel.Left entsprechend setzen.

.
Es soll keine Figur geben die man bewegen kann. Eher etwas in Richtung ...

Ich möchte eine Art Spielfeld machen, das man bewegen kann.
Mit anderen worten wenn man zum Beispiel Strg + Linke Maustaste drückt und dann bewegt soll man das Spielfeld bewegen können (Bzw die Form).
Gibt es da iwelche Funktionen/Eigenschaften oder Möglichkeiten das zu machen?
Vielen Dank für jede ...

theo hat geschrieben:"finally" wird immer durchalufen. Du gibst das eben erstellte Objekt sogleich wieder frei.

Hätte ich selber drauf kommen sollen... Danke!

Createst du "ini" auch irgendwo?
Freigeben tust du es ja, mit ini.free.


Ja, hier in einer anderen Unit
procedure TFormGaeste.iniConnect;
var
Dateiname: String;
begin
try
Dateiname := ExtractFilePath(ParamStr(0)) + 'DatenBankGaeste.ini';
ini := TIniFile.Create(Dateiname);
finally
ini.Free ...

Habe folgenden Text geschrieben.
Warum bekomme ich bei so etwas eine Exception/Error oder sonst was?
Ich schreibe nicht mal eine Variable in die ini.
Einfach 3 Strings in eine leere ini Datei.

procedure TFormGastneu.btnApplyClick(Sender: TObject);
begin
try
GastNeuNr:=1;
FormGaeste.iniConnect ...

Wenn ich round raus nehme, dann funktioniert das Programm an sich, jedoch habe ich dann als Umsatz da stehen: X,XXXXXXXXXEXXX €
Und das soll natürlich nicht.
Wie kann ich das nun lösen, das ich beim Umsatz entweder ganze Zahlen (XXX €) oder max noch (XXX,XX €) stehen habe?

Zeigt dir Lazarus die Zeile an in der der Fehler auftritt?

Falls nicht könntest du so vorgehen:
In die Project.lpr
{$Apptype console} einfügen und deinen code so verändern:
Writeln('0');
Schaden:= Schaden+ (Random(75)+15 * SchadenSatz);
Writeln('1');
GewinnVerm:= Schaden*0.0065;
Writeln('2 ...

Erledigt!

Hallo erstmal,

Ich habe einen Bussimulator programmiert.
Dieser hat auch eine Schadensanzeige.
Je mehr Schaden ein Bus hat, desto weniger Umsatz macht er.
Kompilieren, starten - alles super.

Nach einiger Zeit bekomme ich jedoch den auf den Bildern zu sehenden Error.
Verzeiht mir meine ...