Guten Tage liebe
DP´ler.
Ich bin gerade dabei, ein 4 gewinnt zu programmieren.
Nun bin ich auf eine Fehlermeldung getroffen, die in meinen Augen total fehl am Platze ist.
Denn ich wollte, um die einzelnen Felder anklicken zu können bei "FormMouseDown" einfach einstellen, dass sich die Farbe des Feldes verändert, wenn dort noch kein anderer Stein liegt.
Dafür hab ich dann folgende Procedure:
Delphi-Quellcode:
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var l, r:integer;
begin
l := x div 70; //Breite der einzelnen Felder 70
r := y div 60; //Länge der einzelnen Felder 60
Edit1.Text := IntToStr(r); // Zum überprüfen ob die korrekten Feldvariablen gesetzt werden
Edit2.Text := IntToStr(l);
if Feld[r,l] = 0 then //Wenn Feld leer dann
begin
Feld[r,l] := 1; //Feld besetzt
Form1.Canvas.Brush.Color := clred; //Ändere Farbe
Form1.Canvas.Ellipse(r*(form1.ClientWidth div 7),l*(form1.ClientHeight div 6),(r+1)*(form1.ClientWidth div 7)-5,(l+1)*(form1.ClientHeight div 6)-5); //Zeichne die neue Ellipse
end;
end;
Nach dem Ausführen meines Programmes bekomme ich allerdings folgende Fehlermeldung:
Zitat:
Im Projekt Project1.exe ist eine Excepion der Klasse EAccessViolation aufgetreten. Meldung:'Zugriffsverletzung bei Adresse 00447338 in Modul 'Project1.exe'. Lesen von Adresse 00000238'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen.
Ich habe mir daraufhin gedacht, lasse ich doch einfach mal des "FormMouseDown" leer und habe immer mehr Befehle eingetragen.
Allerdings kam ich sobald ich auch nur etwas mit "Form1.Canvas.Brush.Color := clred;" oder anderer Canvas-Befehle eingetragen habe, kam mir dieselbe Fehlermeldung.
Woran liegt das? Weil es sollte ja möglich sein mit Canvas in einem "FormMouseDown" zu arbeiten oder?
Mit freundlichem Gruß und großem Dank schon im Vorraus
Vampyr09